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APPENDIX D 


SUBROUTINE LISTINGS 


Listings of subroutines which have been added and modified during 
the development of SIMDA/SINFLO are presented 1n alphabetical order In this 
Appendix. A description of the capabilities is contained in Volume I of this 
report. 
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OOO 


90 

Q« n = 0< 1 )*OV*T(LTA) 
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000 
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OOO 

c 
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IFI RLXA.GT.Tl ) GD TO 110 
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000 



RLXA = T1 
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OOO 



N2 = 1 

000131 

000 
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CONTINUE 

000132 

000 
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000133 

OOO 

c 


SEE IF THE RELAXATION CRITERIA ABE WET 
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OOO 
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IFI BLXA.LE.CONl 19 l.ANO.BLXO.LE.CDNt 26 )1 GO TO 
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IFIKONCTl.NE.OI CALL OUTCAL 

000136 

000 
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000 
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CHECK THE ENERGY BALANCE OF THE SYSTEM 

000195 

000 


155 

CALL NQNLlN 

000196 

000 



OOUT = 0.0 
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000193 

000 



J1 = 0 

000199 

000 



00 195 1 = l.NNC 

000150 

000 



QIN = QIN+QI I 1 

000151 

000 


165 

J1 = Jl*t 

000152 

000 



LTA = FL0(22.19,NSQIt JU) 

000153 

000 
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DO 5 KPB=l,nPBH 



000015 

DOO 
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OQ0O37 

003 



NDin = HOin-J 

000038 

003 
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000095 
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000097 
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c 


1N1TALI2E TIME SUM BETWEEN OUTPUT INTERVALS 

000098 
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000073 

003 

c 
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000075 
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000076 
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ON = CDNt 10) 

OOC077 

003 



DO = l.O-ON 

000070 

003 
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000075 

003 
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D0Q03O 

003 

c 


00 the relaxation LOOP 

000087 
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000083 

003 
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000065 
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003 



RLXO = O.t) 

000086 

003 



KOP = C0M( T) 

000087 

003 
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OOOOBO 

003 



JZ = 1 

000089 

003 

c 


ZERO OUT ALL SOURCE LOCATIONS AND SHIFT TEMPERATURES 

000090 

003 



DO 50 I = 1,NNC 

000091 

003 


50 

0( 1 1 = 0.0 

0Q0O9Z 

003 



DO 55 I = UNNT 

000093 

003 



LEI = IEl*l 

000095 

003 
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XI LEI ) = T< 1 ) 

000095 
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000096 

003 



KOM( IZ) 0 

000097 

003 
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000098 

003 

c 


CHECK THE GACKUP SWITCH 

000099 
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IFCKONt IZI.NE.Q) GO TO IS 

OOOlOO 

003 

c 


CHECK FDR FIRST PASS 

000101 
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CALL DUTCAL 

000103 
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000109 

003 



GO TO 10 
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003 
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RC = t.E+8 

000106 

003 



JJ = 0 

000107 

003 

c 
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DO 105 I = IrNND 
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G2 = 0.0 
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0(1) = a(I)*C(I)4<TII)+460.0) 


OiiOllT 

003 
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Qsun = Qc t ) 


oooue 

003 



GSUtt = Cl I) 


OOOU9 

003 



IF 1 .HOT. FLOW) GO TO 70 


000120 

003 



LnP = IE2+I ) 


000121 

003 



IF ILflF -GO. 0) GO TO 70 


000122 

003 



oson = QSUn * Xl !E2+LnPl*tTlLnPl-TZEH0) 


000123 

003 



GSim = GSun + xtiE2*Lnp) 


000120 

003 


TO 

Jl = Jl+1 


000125 

003 



LG = FLD15,16,N5Ql( Jl )} 


000126 

003 



IF (LG .HO. 0) GO TO 80 


00012T 

003 



LTB = FL0(22,14,rjS0H Jill 


00012B 

003 



INCLUDE VAAG.LI5T 


000129 

003 



Tl = T( 1 >*460,0 


ocono 

003 



T2 = TtLTA 1+460.0 


00Q13I 

003 

c 


CHECK FOn RAOIATION CONDUCTOK 


000132 

003 



lF(FLO<3,lrN5Ql< Jin.EO.O) GO TO T5 


000133 

005 



ni= HI +G(LGl*COmSO) 


000134 

005 



QSOn= QSUn + G( LG)*C0H(50 »»T2**4 


000135 

005 



G2= G2 + GtLGl*C0N(501*(Tl*71+T2*T21*lTl+T2) 

000136 

003 



GO TO 00 


ODOI3T 

003 


T5 

GV = G(LG) 


000130 

003 



G2 = G2+GV 


000139 

003 



GSun = GSUM+GV 


000100 

003 



DSun = QSUn+GV»T2 


OOOHl 

003 

c 


CHECK FOR LAST COriDUCTOR 
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003 


80 

IFCNSQU jn.GT.O) GO TO 70 


000143 

003 

c 


DAnPEN RAOIATtOrj ON THIS NODE IF PRESENT 


000144 

003 



IF(Rl.LE.O.) GO TO 100 


000145 

003 



R2 = Rl«Tl**4 


000146 

003 
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003 



R1 = HI + T2+ + 4 
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003 
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000149 

003 

c 
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000150 

003 
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000151 

003 



RI = C< I WG2 


000152 

003 



IF( Rl .GE.RC » GO TO 105 


000153 

003 
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000154 

003 
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000155 

003 
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000156 

003 
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continue 
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c 
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003 
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003 
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000160 

003 



T( I ) = T( I )+460. 
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65 
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IF tLG .GO. 0) GO TO 125 


oooteo 

003 



LTB a FLD<22,19,NSQ1(J111 


oooiei 

003 

c 


CHECK FOR RBDIBTIDH CQNOUCTOO 
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000189 

005 



Qsun= osun ^ G(LG)«C0N(50)»TILTA1»»9 


0001S5 

003 



GO TO 125 


Q001S6 

003 


120 

Gson = GSUn»G(LG» 
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000195 

003 
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c 
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c 
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STORE THE NGU AND OLD TEMPEBATUPES 
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003 
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000029 

001 


10 

IFITSTEF.GT.CnMI 0 1 > TSTEP = CONI 8 ) 

000030 

O01 



IFITSTEP.LT.CONI 21 H TSTEP = CONI 21 )•! .OOOOOl 

000031 

001 



IFITSUn*TSTEP-CON( 18>» 20,25,15 

000032 

oot 


15 

TSTEP = C0N(l8)-rSUn 

000033 

001 



GO TO 25 

000039 

oot 


20 

IFITSUn*2.0*TSTEP.GT.CPHI 181) TSTEP = 0.5*1 CONI 18 )-TEUn ) 

000035 

oot 


25 

CONI 2) = TSTEP 

000036 

001 



CCNCl) s TPlilNT+TSUrj* TSTEP 

000037 

001 



C0HC19) = 0.5*(CON( 1 )*CON( 1311 

000038 

001 



DO 30 I = l,NND 

000039 

001 



otn = 0.0 

000090 

ODl 



LE = !E*I 

0OO091 

001 


30 

XILEl = 0,0 

000092 

001 



IFINNA.LE.01 60 TO 90 

ODOD93 

OOl 



DO 35 I = NN.NHC 

000099 

001 



01 I I = 0.0 

000095 

DOl 


35 

CONTINUE 

000096 

001 


90 

KON( 121 = 0 

000097 

OOl 



CALL WARBLl 

000090 

001 



IFIKGNtlBl.NE.O) Gtl TO .10 

000099 

001 



IFIPASS.GT.G. 1 GO TO 95 

000050 

001 



PASS = 1.0 

000051 

OOl 



CONI 1 ) = TPRINT 

000052 

odi 



CQN(2) = 0.0 

000053 

OOl 



GALL OUTCAL 

000059 

OOl 



CONI 1 ) = TPR1NT*TSTEP 

000055 

DOl 



C0Nt2) = TSTEP 


cnfrst 


DATE 0228 rs 


000056 

ooaosT 

000058 

000059 

000060 

000061 

000062 

000063 

000069 

000065 

000066 

000067 

0Q0Q6S 

000069 

000070 

000071 

000072 

000073 

000079 

000075 

000076 

000077 

000078 

000079 

ooooeo 

OOOOSl 

000002 

000083 

000089 

ooooas 

0000B6 
000067 
000063 
000089 
000090 
000091 
000092 
000093 
000099 
000095 
000096 
000097 
000096 
00O099 
0001 00 
OOOlOt 
000102 
000103 
000109 
000105 
000106 
000107 
000 103 
000109 
OQOItO 
CQQtll 
000112 


001 

<15 

Jl = 0 

001 


J2 = 1 

001 


DO 35 t = l.NflO 

001 


LE = IE+1 

OQl 

1 

INCLUDE VflBC,LtST 

001 


INCLUDE VAHQ,LIST 

001 

50 

Jl = Jl+1 

001 


LC = FLDt5,16,NSait Jin 

001 


IFCLG.EQ.O) DO TO 35 

001 


LTfl = FL0(22,19.NSDt< JUT 

QOl 


INCLUDE VARG.LIST 

OOl 


JFtFLDt 3, 1<NSQ1( Jl n.EO.O 

001 


Tt = Tt 1 )*960.0 

001 


T2 = TI LTfl>->9 60.0 

001 


GV = G« LG1*(T1*TI<-T2*T2)»I 

005 


GV= GV «CON( 50) 

OOl 


GO TO 60 

001 

55 

GV = GtLGI 

001 

60 

QDOT = GV»(TtLTA)-Ttnt 

OQl 


Q< n s Q( I > aooT 

001 


XI LEI = X(LE1+GV 

001 


lFILTA.GT.NNO.On.FLD(21i 1 

001 


LEA- a IE*LTA 

OOl 


XlLEAt = X(LEA)+GV 

OOl 


QtLTR) = QtLTA) - QOOT 

OOl 

65 

IFlNSClt JD.CT.O) GO TO 5l 

OOl 

85 

CONTINUE 

001 


cxn = l.E+8 

001 


TCGfl = 0.0 

act 


DO 105 I = 1,N«D 

OOl 


LE = IE*1 

009 


IF! .NOT. X< let. GT. 0.01 GO 

oot 


Tl = C( 1 T/X(LE) 

001 


lFlTl.GE.CKn> GO TO 90 

001 


CKD = Tl 

OOl 


KDN( 35 1 = r 

001 

90 

IF( TSTEP.GT.TI 1 Go TO 95 

OOl- 


Tl a T( tl + T5TEP»at I 1/C< 

OOl 


GO TO too 

001 

95 

Tl = Tl IT -► TUOl 1 WC( ! 1 

001 

too 

T2 a ABStTl“Tl I I 1 

oot 


Tl t 1 = Tl 

001 


IFtT2.LT.TCGm GO TO tOS 

001 


TCGtl = T2 

001 


KQNI 15 1 = t 

OQl 

105 

CONTINUE 

oot 


CONI 15 1 = TCGn 

001 


CONI 17 1 = CKtl 

001 


KOP = CONI 71 

003 


IFINSVS .NE. 0 1 CALL FLUII 

001 


IFINNA.LE.OI GO TO 160 

OOl 


LAX = K0H151 

OOl 


DAPIPN = C0N191 

oot 


DAnPO = 1.0-DAnPN 

001 


00 150 I = I, LAX 

001 


K0N1201 = 1 

oot 


BLX = 0.0 


■i 


1. 


CHFftST 



ooom 

001 


JJl = Jl 


OOQlt'l 

001 


JJ2 = J2 


Qoons 

001 


DO 195 L = NH.NNC 


OOOUE 

001 


sunc = 0,0 


OQOllT 

001 


SUMCV = 0.0 


Q0D113 

□ 01 


IFt 1 .GT.l 1 GO TO 6000 


OQOlt9 

QOl 


INCLUDE VRQ2,LIST 


□00120 

001' 

no 

JJl = JJl+l 


00012! 

001 

. 

LG = FLD(5,16,rjSQU JJl n 


000122 

001 


LTfi = FLDC 22,19, NSQUJJin 


000123 

001 


IFI l.GT.n GO TO 9000 


000129 

001 


INCLUDE VnG2.LIST 


000125 

001 

c 

CHECK for nOOIATION CONDUCTOR 


000126 

001 


lF(FLDt3,I.NSQUJJin.EQ.0> GO TO 115 


000127 

001 


T1 = TIL1*960.0 


000120 

OOl 


T2 = TCLTftl+960.0 


000129 

001 


G« = GtLG)»tTl*Tl+T2»T2J*(TH‘T2) 


000130 

005 


GV= GV •CONI 50) 


000131 

001 


GO TO 120 


000132 

□ 01 

U5 

GV = G(LG) 


000133 

QQl 


T2 = TILTni 


DQOI39 

001 

120 

sunc = sunc*Gv 


000135 

001 


suncv = 5UnCV+GV*T2 

i 

(jj 

000136 

001 

c 

check FOR LAST CONDUCTOR TO THIS NODE 

000137 

001 


IFINSimjJM.GT.O) GO TO 110 

' 000130 

OOl 


Tl = DAMPN*! Suncv+QtLl)/sunc*onnPO*T(Li 

to 

000139 

001 


T2 = A&St Tl L 1-Tl 1 

000190 

001 


IFCRLX.GE.T2l GO TO 190 


000191 

001 


RLX = T2 


000192 

001 


K0N(37) - L 


000193 

OOl 

190 

TCLl = Tl 


000199 

001 

195 

CONTINUE 


000195 

OOl 


IFIRLX.LE.COMC 19)1 GO TO 155 


000196 

001 

150 

CONTINUE 

%% - 

OO0I9T 

000190 

001 

001 

ISS 

160 

CONcaOl = RLX 
CALL VARBL2 

%%■ 

000199 

001 


CONI 13) = CONC 1 1 

000150 

001 


TSUH = TSUn+TSTEP 

Q zi 

OOOISI 

001 


T5TEP = CKH 

1 

000152 

001 


IFCTSUn.LT.COHClOl) GO TO 10 

000153 

001 


TPBINT = TPRINT+TSUn 


000159 

001 


Call outcal 

000155 

001 


IFtCQNC 1 )•!. 00QO01 .lt. CONC 3)1 GO TO 5 

000156 

001 


NTH = IE 


000157 

QOI 


NOtn = NLA 

OQOI5S 

001 


RETURN 


000159 

OOl 

995 

UniTEt6,B85 ) 


000160 

OOl 


GO TO lOOO 


000161 

001 

997 

URITEt 6.007) NDIfl 


000162 

001 


GO TO 1000 


000163 

001 

998 

URtTE C6,0a0) 


000169 

001 


GO TO 1000 


000165 

001 

999 

URITEl6,a09 ) 


000166 

OOl 

1000 

GALL OUTCAL 


000167 

001 


CALL EXIT 


000160 

001 

005 

F0RnAT<96tl CNFA5T REQUIRES SHORT PSEUDO 


000169 

OOl 

007 

FCRftATf ta.ZOH LOCATIONS AVAILABLE) 










/ 

/ 


O^TE 022B75 FUSE 3 




■COnPUTE SEQUENCES 


CHFAST 





/ 

/ 

DATE 022875 

PAGE 

000170 

001 

880 

FOnnATC lOH 

NO 

OTinELl 



OOOITI 

001 

8B9 

FORHAT( 19H 

NO 

OUTPUT INTERVAL 1 



OG01T2 

001 . 


END 






EHD ELT. 
dHOd.P CKFRUD 




CHFBUq 


/ 


D*TE 022875 


PRBE 


•ELT,l. 
EtTOTT 
OOOOOl 
000002 
•000003 
Q0000<< 
000005 
OODOOfi 
OOOOQT 
000008 
000009 
OODOiO 
0000) 1 
000012 
000013 
OOOOI'I 
OOOOIS 
000014 
OOOOIT 
OOOOIS 
000019 
000020 
00002) 
000022 
000023 
00002>l 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000039 
000035 
000036 
000037 
000038 
000039 
000090 
00009) 
000092 
000093 
000099 
000095 
000096 
000097 
00009B 
000099 
000050 
000051 
000052 
000053 
000059 
000055 


CHF8UD 

1D.1B70 02/28- 
000 

ooo c 

000 c 

001 
000 
000 
000 
ooo 
000 
000 
ooo 
ooo 
000 
ooo 

005 

ooo 

000 

OOQ 

000 

ooo 

009 

009 

QQO C 

ooo 

ooo 

000 

ooo 

OOQ 

ooo C 
ooo 

TOO C 
00b 

ooo c 
ooo 

ooo c 

ooo 

ooo 

ooo c 
000 

ooo c 

ooo 

000 

ooo c 
ooo 

ooo c 
ooo 

ooo c 
ooo 

000 c 
ooo 

ooo c 
ooo 

ooo c 
000 

000 c 


Q3tl9!00-(5,1 

SUBROUTINE CKFRUO 

EXPI,H:tT FQRUBHD DIFFERENCING EXECUTIDH SUBROUTINE FOR 5IN0R F-V 
THE SHORT PSEUDO-COMPUTE SEOUENCE IS REQUIRED 
COMMON /FDIMNS/ HTVP, MS7S 
INCLUDE CDMM.LIST 
INCLUDE DEFF.LIST 
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IF{ CON(81.LE.O. ) C0N(8) = l.E+8 
tF(CQHt9).LE.O.) C0*H9) = l.O 
IF) CQNt 11 l.LE .0. ) CQNIll) = I.E+8 
IFltON.’ IBI.LE.O. ) GO TO 999 
IFtCON) 191.LE.0. ) C0Htl9) = l.E+8 
IF(C0N(501 .LE. 01 CON150>= 1. 

IF( KON( 31 l.NE.O) GO TO 995 

pnss = -l.O 

NNC ° NNO+NNA 
IE = NTH 
NLft = NDin 
NTH = NTH+NHT 
ND!M = NDIM-NNT 

CHECK FOR EXTRA LOCR+IONS FOR CALCULATED NODES : 

I = NLA-NNC 

IFl I .LT.O) GO TO 998 

LI = HNO+1 

TSTEP = C0N(18) 

TPHINT = CON( 13 ) 

INITRLIZE TIME SUM BETUEEN OUTPUT INTERVALS 
5 TSUn = 0.0 

DOES OLD TIME PLUS THE OUTPUT INTERVAL EXCEED THE STOP TIME 
IFtCONl 13 >»CON( 16 l.LE.CONf 31) GO TO 10 
OONT EXCEED IT 
CONtlOl 3 CONI 3l-C0N( 131 
IS THE TIME STEP LARGER THAN ALLOUED 
10 IFfTSTEP.LE.C0N(8)> GO TO I5 
TSTEP = CON( 61 

DOES THE TIME SUM PLUS THE TIME STEP EXCEED OUTPUT INTERVAL 
IS IFt TSUn*TSTEP-CDN( 18 n 25,30,20 
OONT EXCEED IT 
20 TSTEP = C0N(18)-T5UM 
GO TO 30 

does time sum PLUS TUB TIME STEPS EXCEED OUTPUT INTERVAL 
25 IFITSUM*2.0»TSTEP.LE.C0H( 18)1 GO TO 30 
APPROACH f||E OUTPUT INTERVAL GRADUALLV 
TSTEP 3 (1 ONI 18)-TSU<11/2.0 
STORE DELIA TIME STEP IN THE CONSTANTS 
30 CONI 21 3 TSTEP 

IS THE TIME STEP USED LESS THAN THE TIME STEP ALLDUEO 

IFl TSTEP. LT. CONI 21 )) GO TO 997 

calculate the new TIME 

COS! 1 1 = TPflIMT*TSUn*TSIEP 

CDMPJTE THE mean TIME BETUEEN ITERATIONS 

CON! 19) 3 I CONI ) l+CONl 13) )/2.0 

ZERO OUT all SOURCE LOCATIONS AND EXTRA LOCATIONS 
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/ 


000056 

000 



DO 35 r s l.NMD 

000057 

OOQ 



LE = lE-H 

000058 

000 



X1LE7 = 0.0 

000050 

OQO 



an 1 = 0.0 

000060 

OOO 


35 

CONTINUE 

000061 

000 

c 


SHIFT THE BBITHHETIC TEflPEOftTUBES INTO THE E3TH0 LOCATIONS 

000062 

009 



IFtNND.ED.NNT) CO TO 9S 

000063 

009 



DO 31' I=LI,NHT 

00006^ 

009 



»I lE+1 1 = Ttl > 

000065 

U09 


31 

CONTINUE 

000066 

000 



IFCNNA.LE.O) GO TO 95 

000067 

000 



DO 90 I = Ll.NNC 

000068 

000 



Q( I 1 = 0.0 

000069 

000 


90 

CONTINUE 

000070 

OOO 


95 

KONt 12) = 0 

Qooon 

000 



CALL VAItOLl 

000072 

OOO 



IFCK0N(12).NE.0) GO TO 10 

000073 

000 



Jl s 0 

000079 

OOO 



J2 = 1 

000075 

OOO 



TCCn =0.0 

000076 

OOO 



CKM = I.E*a 

000077 

OOO 

c 


calculate 0 sun and g sun 

000078 

OOO 



DO 85 I = I.NNO 

000079 

OOQ 



LE = lE+I 

ooooeo 

000 



INCLUDE VAflC.LIST 

OOOOBl 

OOO 



INCLUDE VACO, LIST 

000082 

OQO 


50 

Jl = J1*l 

000003 

000 



LG = FLD(5,I6,NSQ1( Jt )) 

000039 

OOO 

c 


CHECK FOR LAST CONDUCTOR 

ooooas 

OOO 



IFILG.F5 .0 ) GO .TO 05 

OOOOS6 

000 



LTA = FLDC 22,19, NSQIUI n 

000007 

OOO 



INCLUDE VARG.LIST 

000008 

OOO 

c 


check for radiation conductor 

000089 

000 



IFtFLDI 3,l,»SQl( Jl )).E0.0 ) GO TO 55 

000090 

000 



Tl = Tl I ii i50.0 

000091 

OOO 



T2 = TILTA J*960.0 

000092 

OOO 



GV = GtLGl*(Tl*Tl+T2»T2)*ITUT2) 

000093 

005 



GV= GV *CONt50) 

000099 

OOO 



GO TO 60 

000095 

000 


55 

GV = GILCl 

000096 

OOO 

c 


OBTAIN THE 0 RATE THRU THE CONDUCTOR 

000097 

OOO 


60 

QODT = GV*( LTA )-T( I )) 

OD0096 

OOO 



Qt I ) = 01 I )*QDOT 

000099 

OOO 

c 


SAVE SUnnATIDN OF CONDUCTORS 

OOOlOO 

000 



XlLE) = XtLE)+GV 

OOQlOl 

OOO 

c 


CHECK for ADJOINING DIFFUSION NODE 

000102 

OOO 



IFtLTA.GT.NNO.OR.FLDC 21 ,1,NSQ1( Jl H.EO.l 1 GO TO 65 

000103 

OOO 

c 


SAVE SUnnATION OF CONDUCTORS FOR ADJOINING NOOb 

000109 

OOO 



LEA = 1E«LTA 

000105 

000 



XCLEAI = X(LEA)+GV 

030106 

OOO 



QtLTA) = QtLTAl-OOOT 

000107 

OOO 

c 


CHECK FOR LAST CONDUCTOR 

OOOIOS 

■ OOO 


65 

IFtNSOIUI ).GT.O 1 GO TO 50 

000109 

OOO 


85 

CONTINUE 

ODOt 10 

OOO 

c 


OOTAIN NEU DIFFUSION TEnFERATURES, DTHPCC "ID CSGtllN 

0001 11 

000 



DO lOO I z 1,NN0 

000112 

OOO 



LE = IE*1 
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000113 

000 

c 


CAtCULATE C/SK niNlnUtl 

0001 lA 

009 



IFt ,»Sr.XCLE).GT.O.O) GO TO 90 

ODOilO 

000 



T1 = C(n/X(LG1 

000116 

ODD 



IF(Tl.GE.CKH) 60 TO 90 

000117 

000 

1 


CSM = 71 

OOOllB 

000 



K0N( 35 ) s I 

000119 

ooo 

c 


COnPUTE NEW TEMPEBATUSES USING CALCULATED SOURCE .TEBBS 

000120 

000 


90 

Tt = TSTEP*QC t l/CC M 

000121 

000 

c 


CALCULATE THE ABSOLUTE VALUE TEBPERATUHE CHANGE 

000122 

ooo 



72 = ABS(Tl) 

000123 

000 

c 


SAVE THE LARGEST TEBPEBATUBE CHANGE 

000129 

ooo 



IFt TCGt1.GE.T2 » GO TO 95 

000129 

000 



TCGPl = T2 

000126 

ooo 



KONt 36) = I 

000127 

000 

c 


STORE THE TEMPERATURES 

000123 

ooo 


95 

x(LE) - Tc n 

000129 

ooo 



T(I ) - Tf I l+Tl 

000130 

ooo 


100 

CONTINUE 

oooni 

ooo 



COHOTl = CKM 

000132 

ooo 



DELTA = CKM/C0NC91 

Q0D133 

001 



KQP = CON( r 1 

000139 

003 



IFINSVS .NE. 0) CALL FLUID! 1, 0 , 0 ,0 . .KQP ) 

000135 

ooo 

c 


CHECK FOR FIRST PASS 

000136 

DOO 



IFI PASS, GT. 0.0 1 GO TO 115 

000137 

ODO 

c 


UNDO THE TEMPERATURE CALCULATIONS 

00013S 

009 


105 

on ue I = l,N«T 

000139 

ODD 



LE = IF+t 

000190 

OOO 



T( 1 1 = X<LE1 

000191 

000 


110 

CONTINUE 

000192 

oco 



IFIPASS.QT.O.Ol GO TO 15 

000193 

000 



PASS = 1-0 

000199 

QQO 



CON( 1 1 = TPRINT 

000195 

ooo 



C0Nt21 =0.0 

000196 

ooo 



TSTEP = DELTA*0.95 

000197 

ooo 



GO TO 195 

000196 

DOO 

c 


IS THE TIME STEP USED LESS THAN THE TIME STEP CALCULATED 

000199 

ooo 


US 

IFCTSTEP.LE.OELTAI go to 130 

000150 

ooo 

c 


COMPUTE THE TIME STEP 

000151 

□ 00 



TSTEP = 0ELTA*0.95 

000152 

000 



GO TO 105 

003153 

ooo 


120 

TSTEP 2 0.9B*T5TEP»C0NI 6 1/TCGM 

000159 

ooo 



GO TO 105 

000155 

ooo 


125 

TSTEP = 0,95*T5TEP*C0NC U )/TCGM 

000156 

ooo 



GC TO 106 

000157 

000 

c 


SEE IF THE TEMPERATURE CHANGE MAS TOO LARGE 

000158 

ooo 


130 

IFC TCGM.GT.CONt 6 1 ) GO TO 120 

000159 

DOC 

c 


STORE THE MAXIMUM DIFFUSION TEMPERATURE CHANGE 

000160 

ooo 



CONC 15 ) s TCGM 

000161 

ooo 

c 


CHECK TO SEE IF THERE ARB AN) ARITHMETIC NODES 

000162 

ooo 



IFINNA.LE.O) GO TO 105 

000163 

ooo 

c 


CDftPUTE arithmetic TEMPERATURES BV SUCCESSIVE POINT OVER-BELAX 

000169 

ooo 



ON = CONI 9) 

00016S 

OOO 



DB s t.O-ON 

000166 

000 



LAX = K0NI5 > 

000167 

ooo 



DO ITO I = 1,LAX 

000160 

ooo 



JJI = Jl 

000169 

ooo 



JJ2 s J2 
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OOOITO 

000 



Tccn = 0.0 

ODOin 

000 



Komaol = 1 

000172 

noD 



DO 165 L - LliNNC 

OQOIT3 

ooo 



sunc = 0.0 

OOOlT't 

000 



suncv = 0.0 

000175 

000 



IF( 1 .GT.l ) GO TO 6000 

000176 

000 



INCLUDE V8Q2.L15T 

000177 

000 


135 

JJl = JJl*l' 

000170 

000 



LG = FLD(5.16,NSQlt JJD1 

000179 

000 



LTft = FLOt 22, 19,NS0ll JJll) 

oooiao 

000 



IF(I, GT.lt GO TO 9000 

OOOlOl 

000 



INCLUDE VBG2,LIST 

000132 

000 

c 


CHECK Fon nnOIGTION CONDUCTOR 

000183 

000 



IF( FLD( 3,l.NS0t( JJl It.EQ.O) GO TO 190 ‘ 

000189 

000 



T1 = TILl+960.0 

0D01S5 

000 



T2 = T1LTA1+960.0 

000136 

000 



GV = G(LGt*tTl*Tl+T2*T2)*(Tl+T2t 

000187 

005 



CV= GV *CQNrSO) 

oooiee 

000 



GO TO 195 

000109 

ooo 


190 

GV = GILG ) 

000190 

000 


195 

sunc = sunc+GV 

000191 

ooo 



suncv = SUnCV*GV*TlLTftl 

000192 

000 

c 


CHECK FOB LAST CONDUCTOH 

000193 

ooo 



IFlNSOUJJtt.GT.O) GO TO 135 

000199 

ooo 



T2 = DD*T( L 1*0N*1 SUnCV+QIL n/SUI^C 

000195 

ooo 

c 


OBTAIN THE CALCULATED TEnPEBATURE DIFFERENCE 

000196 

ooo 



Ti = ABS(T(L1-T21 

009197 

000 

c 


STORE THE NEU TEnPERATUSE 

000198 

ooo 



TIL) = T2 

000199 

ooo 

0 


SAVE THE MAXinUn ARITIinETIC RELAXATION CHANGE 

Q002D0 

ooo 



IFlTCGH.GE.Tl ) GO TO 165 

000201 

ooo 



TCGn = Tl 

000202 

000 



KONC 37 1 = L 

000203 

ooo 


165 

CONTINUE 

000209 

ooo 

c 


SEE IF RELAXATION CRITERIA WAS MET 

00020S 

ooo 



IFI TCGft.LE.CONI 19n GO TO ITS 

000206 

ooo 


170 

CONTINUE 

000207 

ooo 

c 


STORE THE nAXtnun ARlTtmETrC relaxation change 

900203 

000 


175 

CONI 30) = TCGn 

000209 

000 

c 


ConPUtE THE ARITItnETtC TEnPERATURE CHANGE 

000210 

ooo 



TCGn = 0.0 

0002U 

ooo 



DO 180 1 = Ll.NNC 

009212 

ooo 



IE = lE+I 

000213 

000 



Tl = ABSITI I )-XtLE)l 

000219 

000 



IFIT1.lt. TCG ni GO TO 180 

000215 

ooo 



TCGn = Tl 

000216 

000 



KONtjei = I 

0002)7 

ooo 


180 

CONTINUE 

000213 

ooo 

c 


SEE IF ATnPCA WAS SATISFIED 

000219 

ooo 



IFI TCGn. GT. CONI 11)1 GO TO 125 

000220 

ooo 



CONI 16 ) = TCGn 

000221 

ooo 


185 

XQNI 12 ) = 0 

000222 

OOD 



CALL VAR3L2 

000223 

ooo 

c 


CHECK THE BACKUP SWITCH 

000229 

000 



IFieONt 121.NE.0) GO TO 105 

000225 

000 

c 


ADVANCE Tine 

000226 

ooo 



CONI 13) = CONI 1 t 
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000227 

000 



TStm = TSUn+TSTEP 


00022S 

000 



TSTEP = 0ELTfi»0.55 


000220 

000 

c 


CHECK FOR TIME TO PRINT 


000230 

000 



IFCTSUn.GE.COMC 18)1 GO TO 150 


00023t 

000 

c 

L 

CHECK FOB PRINT EWEBV ITERATION 


000232 

000 



IFCKONE n.EO.O) GO TO 10 


000233 

000 



CALL QUrCAL 


000230 

000 



GO TO 10 


000235 

000 

c 


TR¥ TO EVEN THE OUTPUT INTERVALS 


000236 

000 


150 

TPBINT = TPRIHT+TSUn 


000237 

000 


I9S 

CALL OUTCAL 


00023B 

ooo 

c 


IS TIME GREATER THAN END CqnPUTE 

TIME 

000235 

000 



IFCCDNI 1 )»1.000001 .LT.CONC 3)) GO 

TO 5 

000250 

000 



NTH = IE 


0002HI 

000 



NO In = NLA 


000252 

000 



RETURN 


000253 

000 


955 

JfttTE<6,68S) 


000255 

000 



GO TO 1000 


000255 

000 


597 

uniTE<6,aaT) 


000256 

000 



GO TO 1000 


000257 

000 


950 

UHITE(6,8B8) | 


000258 

000 



GO TO 1000 


000255 

000 


955 

URITEC6,889) 


000250 

000 

1000 

CALL OUTCAL 


000251 

000 



call exit 


000252 

000 


;35 

F0HnAT(56H CHFRUO REOUIRES SHORT 

PSEUOO"COMPUTE SEQUENCE) 

000253 

ooo 


087 

F0PnAT(20ll TIME STEP TOO SHALL) 


O00255 

000 


888 

FDRnATI I0,20H LOCATIONS AVAILABLE) 

000255 

ooo 


085 

FORnnil I9H NO OUTPUT INTERVAL) 


000256 

000 



END 
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AELT.L 
ELT0T7 
OOOODl 
OOOD02 
000003 
000004 
OQOOQ5 
000006 
OOOOOT 
000000 
000009 
OOOOIO 
OODOU 
000012 
D00D13 
000014 
000015 
000016 
000017 
000016 
000014 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000024 
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000031 
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000033 
000034 
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000 
000 
000 
000 
ODD 
000 
000 
000 
000 
006 

001 
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001 
001 
001 
001 
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•03il9:02“l6, 1 

SUOtlQUTTNE CNFUBK 

tnPLICIT FQRUARD-BACKUHHO DIFFEBENCING execution SUBCaUTINE 
the long PSEUOO-COnPUTE SEOUEMCE is REOUIHEOj SINDft FORTRAN V 
ALU NODES RECEIVE A SUCCESSIVE POINT ITERATION 
relaxation criteria nUST BE SPECIFIED 

over-relaxation is ALLDUED, the DAnPENIHD FACTORS ARE ADDRESSABLE 
LOGICAL PLOU 

connoN 7FDinNS/ htvfe. nsvs 
INCLUDE conn, LI ST 
INCLUDE DEPP, LIST 
IPIKONCSl.LE.Ol 60 TO 999 
IFl com 6 l.LE.O. ) CQN16) = 1 .E*0 
IP( CONt 81.LE-0. ) CONI 6 1 = I.E*8. 

IFICDHI 4J.LE.0. 1 CONt 9 ) = l.O 
IPCCONUai.LE.O. 1 CDN(IO) = 1.0 
iptcom in.LE.O, » CONCH) = 1.E*8 
IFC com 3).UE.C0MC 13)) GO TO 990 
1F( com 16 ).LE.O. 1 GO TO 998 

I r( NWA.GT.O.AND.COMC 19 ).LE.O. 1 GO TO 997 

II CCON122).LE.O. ) GO TO 996 
IMNND.GT.O.AMO.CONC 26 ).LE.O. } GO TO 995 
tPC KOm 31 >.NE. I ) GO TO 991 

tPlC0N(50) .LE. 0) CDN(50)= 1. 

TZERO = -450, 

PASS = -1.0 
NN = NND*1 
NLA = NOtn 
NNC = NND * NNA 
NSP = NMD 

IF CNSVS .NE. 01 NSP = NNT 

lEl = NTH 

IE2 s lEl + NNT 

IE3 = IE2 + NSP 

J = NNO ♦ NSP 4- NNT 

NTH = NTH*J 

NDin = Noin-j 

CHECK FOR EXTRA LOCATIONS FOR CALCULATED NODES 
IFtNDIPl.LT.O) GO TO 994 
FLOW = .false. 

IF CNSVS .EQ. 0) GO TO 4 
FLOW = .TRUE. 

DO 3 1=1, NNC 
NXC IE241 I = 0 

3 CONTINUE 

4 TPRINT = CONI 13) 

INITALIZE TinE sun BETWEEN OUTPUT INTERVALS 

5 TSUn = 0.0 

DOES OLD TlilE PLUS THE OUTPUT INTERVAL EXCEED THE STOP TINE 
1F< CONC 13)+C0NI 18).GT.C0N{ 3) > CONI 18) = CONC 3 l-CONC 1 3 ) 

DONT EXCEED IT 
10 TSTEPN = CONI 22) 

IFITSTEPN.LE.CCN(S)) GO TO 20 
15 TSTEPN = com 8) 

GO TO 35 

DOES THE TINE SUH PLUS THE TIME STEP EXCEED OUTPUT INTERVAL 


CNFUBK 
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000056 

000 


20 

!F(TSU«+TSTEPN-CON( len 30,35,25 


000057 

OQO 

c 


OOHT EXCEED IT 

* 

000058 

000 


25 

TSTEPK = CDH( lei-TSUfI 


000058 

OQO 



GO TO 35 


QQOQ60 

000 

c 


DOES TIME sun PLUS TUD TIHE STEPS EXCEED qUTPUT INTERVAL 


000061 

000 


30 

IF(TSDm*2,0.TSTEPN.LE. CONI 18)1 GO TD 35 


000062 

000 

c 


APPROACH THE OUTPUT INTERVAL BRflOUALLV 


000063 

000 



TSTEPH = < COMt 18)-TSUn J/2.0 


C0006M 

000 

c 


STORE DELTA TIME STEP IN THE CONSTANTS 


000065 

000 


35 

COfa 2» = TSTEPN 


000066 

000 

c 


CALCULATE THE NEW TIME 


000067 

ooo 



IFC PASS.GT.O. ) GO TO 90 


000063 

ooo 



CQta 1 1 = TPRINT 


000069 

000 



CQNC 2 > -- 0.0 


000070 

000 



GO TD 95 


000071 

ooo 


no 

coral) = TPHINT*T5Un+TSTEPN 


000072 

000 

c 


COMPUTE THE MEAN TIME OETUEEN ITERATIONS 


000073 

ooo 


95 

Coni 19 1 = i cora i )*CONi i3 ) > 72.0 


000079 

ooo 



LAX = Kora 5 > 


000075 

000 



DN = CONI 10) 


OOOOT6 

ooo 



DO = 1.0-DN 


000077 

ooo 



AN = CONI 9 1 


000078 

000 



AA = UO-AN 

tJ 

000079 

000 



TSTEP = TSTEPN/2.0 

1 

OOOOOO 

000 

c 


00 THE relaxation LOOP 


OOOOOI 

ooo 



□0 290 XI = 1,LAX 

CJ 

ooooez 

000 



K0NI2O) = K1 


000083 

ooo 



Jl = 0 


00008H 

ooo 



RLXA : 0.0 


000085 

ooo 



ALXD = 0.0 


000086 

001 



KOP =! CONI 7) 

o ^ 

000037 

OOl 



IF ( K) ,GT. 1 ) GO TO 106 

000088 

000 



J2 = 1 


000089 

ooo 

c 


ZERO OUT ALL SOURCE LOCATIONS AND SHIFT TEMPERATURES 


000090 

ooo 



00 50 1 = 1,NNC 

c3 

000091 

ooo 


50 

01 I ) = 0.0 

Q.” 

000092 

ooo 



00 55 I = 1,NNT 


000093 

ooo 



LEI = IE1*I 


000099 

ooo 


55 

XI LEI 1 = Tf IV 


002095 

009 



IFIFLOU) CALL FLUIDt 2 , IF 1 , 1E2 ,0 . . KQP 1 

000096 

ooo 



KONI 12) = I? 

c ^ 

000097 

ooo 



CALL VAR81 1 


000090 

000 

c 


CHECK THP ^fC»JP SUITCH 

©15i 

000099 

000 



IFCKONI iZ 1 ttt.O) GO TO 15 


QOQIDO 

ooo 

c 


CHECK FOR riHST PASS 

DQOIOI 

ooo 



IFI PASS.GE.O. ) GO TO 60 


000102 

000 



CALL OUTCAL 


O0D103 

ooo 



PASS = l.O 


000109 

ooo 



Go TO 10 


000105 

ooo 


60 

RC = l.E*8 


000106 

000 



JJ = 0 


000107 

000 

c 


CALCULATE FIRST PASS TEMPERATURES AND CS6M1N 


oooioa 

ODD 



□0 IQS I = l,NND 


000109 

000 



INCLUDE VAHC.LIST 


ooono 

000 

c 


FOLD DELTAT INTO THE CAPACITANCES 


OOOltt 

000 



CM 1 = CM 1/TSTEP 


000112 

ooo 



R1 =1 0.0 
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000113 

000 



S = 0.0 

00011‘t 

000 



G2 S 0.0 

000115 

OOO 



INCLUDE VAUQ.LIS" 

000116 

000 



Q(l> = 2.0*OC n+Ct I >«(T( t >+960.0) 

ODOUT 

000 



Qsun = 01 I ) 

0001 18 

000 



'•sun = ct n 

000119 

001 



17 1 .NOT. FLOU) 00 TO 70 

000120 

001 



LHP = N*C IE2+I > 

000121 

□ 01 



IF ILnP -EQ. 0) GO TO 70 

000122 

005 



HA = X( IE2+L0P > 

000123 

005 



□ ( 1 1 = Cl I >+HR*( Tl LWP l-Tl I ) 1 

OD012>I 

005 



QSUn = QSUn+HA*(T(LnP )-T2EH01 

000125 

009 



GSUR = GSUn*HA 

000126 

000 


TO 

J1 = Jl+1 

000127 

000 



LO = FU)(5,16,NSQU JDl 

000128 

001 



IF (LG EQ. 01 GO TO SO 

000120 

000 



LTA = FL0t22,l5,NSQl{ JUl 

000130 

000 



LTAE = LTR+lEl 

ooom 

000 



INCLUDE VAOG.LtST 

000132 

000 



Tl = T( 1 1+560.0 

000133 

000 



T2 = T( LTA >*560.0 

000135 

000 

c 


check FOn nADIATtON CONDUCTOR 

000135 

000 



IFIFLDI 3, 1 .NSQH J1 9 l.EO.Ol GO TO 75 ^ 

000136 

00 6 



Rl= HI -»GI LG )«CON( 501 

000137 

05i 



05UI<1= OSUn + G(LG 1*C0N(50 )*T2»*5 

000138 

106 



G2= Q2 ♦ G( LG )•( T1»T!*T2»T2 >»(TtfT2>*C0M<501 

000139 

006 



0(11= 0(11+ G( LG )*CQN( 50 l»((Xt UTAH 1+560. 1»*5-Tl»«5) 

000150 

000 



GO TO SO 

OOOHI 

000 


75 

GV = G(LG) 

000152 

000 



Q( 1 J = Oil >+GV»C X( LTAE )-T( I ) 1 

0C0153 

000 



G2 = G2+GV 

000155 

000 



GSun = GSun*GV 

000155 

000 



QSun = QSun+GV*T2 

000156 

000 

c 


CHECK FOR LAST CONDUCTOR 

000157 

OOO 


so 

IFINSQUjn.6T.01 GO TO 70 

003158 

000 

c 


OAnPEN RADIATION ON THIS NODE IF PRESENT 

000159 

OOO 



IFtRl.LE.O. 1 GD TO TOO 

000150 

000 



B2 = B1*Tl*+5 

000151 

OOO 



T2 = ( DSun-R2 l/G5Un 

000152 

OOO 



B1 = ni*T2*»5 

000153 

OOO 



S = ( R1+R2 1/2.0 

000155 

000 

c 


OBTAIN THE NEW TEflPERATURE 

000155 

OOO 


100 

7(1) = ( 0N»(( OSUn-S)/GSUn>+OQ»TI >-560.0 

000156 

OOO 



HI = C( 1 1/G2 

000157 

OOO 



fF(Rl.GE.RC) GO 7n *05 

0QDI50 

001 



IF < .NOT. G2 -6T. O.Ol GD TO 105 

000159 

OOO 



RC = HI 

OQ0160 

000 



KQNl 35 1 = f 

000161 

000 


105 

CONTINUE 

000162 

000 

c 


CONVERT TEdPEHATURES TO HRNKINE 

000163 

OOO 



CD 65 1 = l,HNT 

000165 

000 



LEI = IEl-1 

000165 

OOO 



T( 1 > = T( tl+560. 

000166 

000 


65 

*t LEI 1 = XI LEI 1+560. 

000167 

000 



CON( 17 1 = RC+TSTEP 

000166 

OOO 



GO TO 225 

000169 

000 

c 


NOW RELAX THE NETWORK BV SUCCESSIVE POINT AND EXTRAPOLATION 


sn-cr 


jJ 0iii«j] 



CNFUBK 



/ 

/ 

DATE 022675 

PAGE 

OQtltTO 

009 


106 IFlFLOm CALL FLUIOt 2, lEl, IE2,TZEHD,K0P 1 



000171 

ooo 


110 JJ = JJ+1 



0Q01T2 

000 


DO 165 I a l,HHD 



000173 

OOO 


B1 = 0,0 



00017*1 

000 


S = 0.0 



000175 

000 


OSUN II QCIl 



000176 

000 


GSUtI = E(l) 



000177 

001 


IF t .NOT. FLOU) GO TO 115 



00017B 

001 


LrtP = HX( 1E2+I » 



000179 

001 


IF (LMP .EO. 0) fiO TO 115 



oooiao 

001 


nsun = Dsun + « iez+uhp )*TtLfip i 



oooist 

001 


Gsun = BSUn * xciE2*LHPi 



000182 

ooo 


115 J1 = Jl+1 



OOOL83 

ooo 


LG = FLD(5,16,N£01(Jlll 



000189 

001 


IF (LG .EQ. 0) GO TO 125 



0001B5 

ooo 


LTA = FL0(22, 19,NSQ1(J1 H 



000186 

000 

c 

CHECK FOB BADIATIQN CONDUCTQB 



000187 

000 


IF( FLD( 3,l^NSQl( Jl) l.EQ.O) GO TO 120 



000188 

006 


Bl= Bl+GtLG J»C0HC50) 



000109 

006 


DSUn= OSUn ■•-Gt LG1>T( LTA t««9 •CDNISO) 



000190 

ooo 


GO TO 125 



OOOI9L 

ooo 


120 GSun = GSUn+G(LG» 



000192 

ooo 


□ sun = OSUn+G(LG )*T(LTA 1 



000193 

ooo 

c 

CHECK FOB LAST CONOUCTOB 



000199 

ooo 


125 IF(NSaKJl).GT.O) GO TO 115 



000195 

ooo 

c 

DAnPEN BADIATION QN THIS NODE IF PBESENT 



000196 

ooo 


IFtni.LE.O.) GO TO 195 



000197 

000 


B2 = fU*T( I >*»9 



000190 

ooo 


T2 = tQSUn-B2 J/GSUtI 



000199 

ooo 


HI = R1»T2*»9 



000200 

ooo 


5 = tnH'B2l/2.0 



000201 

ooo 

c 

OaiAIH THE NEW TEMPEBATUBE 



000202 

ooo 


195 T2 - DN»tiaSUri-S)/GSUM)*OD»Tf t 1 



000203 

ooo 

c 

OBTAIN THE CALCULATED TEMPEBATUBE OIFFEHENCE 



000209 

ooo 


T1 = ABStTt I )-T2) 



000205 

ooo 

c 

STOBE THE NEW ANO OLD TEMPEfi ATUBES 



000206 

ooo 


GO TO C 160, 155,150 ), JJ 



000207 

ooo 


ISO LE2 = IE2*1 



000203 

ooo 


LE3 = 1E3+I 



000209 

ooo 


HI = T2-TI 1 ) 



000210 

000 


X1LE2) - T( I) 



000211 

000 


XILE3I = RI/tRl-X(LE3n 



000212 

ooo 


GO TO 160 



000213 

ooo 


155 LE3 = 1E3+1 



000219 

ooo 


X1LE3 ) = T2-T1 1 1 



000215 

ooo 


l6o Ttn = T2 



000216 

ooo 


IFIHLXD.GE.Tl 1 GO TO 165 



000217 

ooo 


RLXD = Tl 



000218 

000 


KKl = I 



000219 

ooo 


165 CONTINUE 



000220 

000 


GO TO < 180,180,1701, JJ 



000221 

ooo 

c 

PERFORM LINEAR EXTBflPOLATION ON THE ERROR FUNCTION COflVE 



000222 

ooo 


170 JJ = 0 


- 

000223 

000 


00 ITS 1 = l.NNO 



000229 

ooo 


LE3 = 1E3+I 



000225 

000 


LE2 = IE2+I 



000226 

006 


Gtf= GV •CDNtSO) 




CKFU&]( 


/ 


OJITE 022S79 


P*GE 


S 


n' 

000227 

000 

t 


SEE If THE ESTRftPDLATION IS ALLOWABLE 


000228 

007 



IF1XILE35.GE.0, J GO TO 173 

'1 - 

00022'? 

000 

c 


LIMIT THE EXTHBPDLATIOH 


000230 

000 



IFt X{LE3).LT,-10. ) XCLE31 = -10. 

Y' 

000231 

000 


1 

Ttn = X(LE31*XtLE2»+(l.0-XILE3n*TtIl 

Ji 

000232 

007 


173 

HXt LE2» = 0 

H 

000233 

000 


175 

coriTirjuE 


000231 

000 


180 

IFINHA.LE.OJ GO TO 220 


00023S 

000 



JJl = J1 

X 

000230 

000 



JJ2 = J2 

* 

000237 

000 



DO 230 I = 1,HNT 

j: 

Q0023B 

000 


230 

T( I 1 = Tt I 1-960.0 


000239 

■ 000 



DO 215 1 a 

T 

000290 

000 



L = 1 


000291 

000 



IFIKI.GT.2) GO TO 6000 


000292 

000 



INCLUDE VRQ2,LIST 

; ) 

000293 

000 



GSun = 0.0 

'i' 

000299 

000 



osun = 0( 1 ) 


000295 

000 


185 

JJl = JJt+1 

; 1 

000296 

000 



LG = FLDtS,16,NSai( JJtn 

: lY 

000297 

000 



LTA = FLD( 22, I9,NSQ1( JJl )> 

rT: 

000298 

000 



IF(K1.GT.2> GO TO 9000 

IJ 

000299 

000 



include VBG2.L1ST 

■ Y 

000250 

000 



Tl = H I 1+960.0 

:y; b 

000251 

000 



T2 = T( LTA 1+960.0 

iY * 1 

000252 

000 

c 


CHECK FSH radiation CONDUCTOR 

;-i ' 4=- 

000253 

000 



TF( FLO( 3,l,NSQI( JJl i l.EO.O 1 GO TO 190 

Tv' ^ 

000259 

000 



GV = GtLG I»{Tl*Tl*T2*T21*(Tl+T21 

•-(•• 

000255 

000 



GO TO 195 

'■ I. . 

000256 

000 


190 

GU = G(LG) 


000257 

000 


195 

GSun = CSUn+GV 


000258 

000 



OSUPl = 0SUH+GV*T2 

‘i- 

000259 

000 

c 


CHECK FOR LAST CONDUCTOR 


000260 

000 



IF4NS0K JJl l.GT.O I GO TO IBS 


000261 

000 

c 


CALCULATE THE NEW TEUPERATUBE 

- ^v 

000262 

000 



T2 = AM»OS'jn/GSUni+AA»Tl 


000263 

000 



Tl = R0StT2-Tn 

ly 

000269 

QQO 



T! 1) = T2-960.0 


000265 

000 



IFCRLXA.GE.Tl 1 GO TO 215 


000266 

000 



HLXA = Tl 


000267 

000 



KK2 = I 


00026B 

000 


215 

CONTINUE 

" .. 

000269 

000 



DO 235 I = I.NNT 


000270 

000 


235 

T( 1 ) = T( 1 1*960.0 


000271 

000 

c 


SEE IF THE AHtTHnETTC RELAXATTOh CRITERIA UAS MET 

i*. 

000272 

000 



IF(HLXn.G7.C0NM9n GO TO 225 


000273 

ooo 

c 


SEE IF THE DIFFUSION RELAXATION CRITERIA UAS MET 

1 Y 

000279 

000 


220 

IFtRLXB.LEiC0N(26n GO TO 295 


000275 

ODD 


225 

IFt KONf 7 1.EQ.0 1 GO TO 290 

'*• 

000276 

000 



CALL OUTCAL 


000277 

000 


290 

cdmtiptue 


000278 

ooo 



IF(K0N(281.GE.65 1 CALL TCPLIN 

• > 

000279 

OQO 



WniTE(6,882) 


' 000280 

ooo 



K0Nt2BI = KCN(28l+2 


000201 

ooo 

c 


SEE IF THE temperature CHANGES WERE TOO LARGE 


000282 

ooo 


295 

TOGO =0.0 


000283 

ooo 



TCGA = 0.0 



nooa m 

SI aDYd 'TyHEDIHO 





/ 


CNFUBK 




/ 

OQOiB'l 

000 



DO 250 I = l.KMD 

0002B5 

000 



I.E = lEl+I 

0a02B6 

000 



Ct n = Ct I »*TSTEP 

000287 

000 



Tl = ABSCTt 1 )“X{LEJI 

000268 

000 



IFCTCGD.GT.Tl > GO TO 250 

000280 

000 



TCGD = Tl 

000200 

ODO 



Kori(36) = I 

000201 

QOO 


Z50 

CQNTlflUE 

000202 

000 



lFCTCGD.LE.C0Nt61) GO TO 265 

000203 

OQO 



TSTEPM = 0.95*TSTEPM*C0Nt61/TCCD 

000200 

000 


255 

00 260 I = 1,»NT 

000205 

ODO 



LE = 1EI*I 

000206 

000 


260 

T( I J = XI LE 1-960.0 

00020T 

OQO 



GO TO 30 

000208 

000 


265 

IFfNNA.LE.Q) GO TO 275 

000209 

000 



00 270 I = NN,rJHC 

000300 

000 



LE = IEl+1 

000301 

ooo 



Tl = ABS( T( 1 1-X(LE11 

000302 

QOO 



IFt TCGA.GT.Tl 1 GO I 0 270 

000303 

000 



TCGA = Tl 

000300 

000 



K0N1361 = I 

000305 

000 


270 

CONTINUE 

000306 

000 



IFt TCGA. LE. CONC lin GO TO 275 

000307 

000 



TS7EPN = 0.95*TSTEPM*C0NC 11 1/TCGA 

00030B 

000 



GO TO 255 

000309 

000 

c 


C0NVEB7 TEtlPERATUnES BACA TO FAHEHHEIT 

000310 

000 


275 

DO 280 I = I.HNT 

000311 

000 


280 

Tt I > = T( I 1-960.0 

000312 

000 

c 


STORE THE TEMPERATURE AMD RELAXATION CHANGES 

000313 

000 



CONC 151 = TCGO 

000319 

ooo 



CQ»(161 = TCGA 

000315 

000 



Cau(27l = RLXD 

000316 

ooo 



IFtHLXA.GT.RLXDl GO TO 285 

000317 

ooo 



KA2 = KKI 

0003IS 

ooo 



BLXA = HLXO 

000319 

000 


235 

K0Nt3Tl = KK2 

000320 

QOO 



CQNC301 = RLXA 

000321 

ooo 



K0NC12) ° 0 

000322 

000 



CALL VAR3L2 

000323 

ooo 

c 


CHECK THE BACKUP SWITCH 

000329 

ooo 



IFt KCNt 121.NE.0 ) GO TO 255 

000325 

ooo 

c 


ADVANCE TIME 

000326 

ODD 



COMt 131 = CONt 1 1 

000327 

ooo 



TSOn = T$Un*TSTEPN 

000328 

OOO 

c 


CHECK FOR TIME TO PRINT 

000329 

OQO 



IFt TSUM.GE.CQNC IB 1 1 60 TO 290 

000330 

000 

c 


CHECK FOR PRINT EVERY ITERATION 

000331 

ooo 



IFtKOHt71.NE.0l CALL OUTCAL 

000332 

ooo 



GO TO 10 

000333 

ooo 

c 


THY TO EVEN THE OUTPUT INTERVALS 

000339 

DOO 


290 

TPBINT = TPRINT*-TSUn 

000335 

000 



CALL OUTCAL 

000336 

000 

c 


IS TIME GREATER TURN END COMPUTE TIME 

000337 

ooo 



IFt com 1 )«l .OOOOOl.UT.CONt 31 > GO TO 5 

000330 

ODO 



NTH = lEl 

000339 

ooo 



HO in = NLA 

000390 

000 



RETURN 







Cfflra KStStS ^ 


CHEUBK 



/ 

0003A1 

eoo 

990 

URttE(6,880) 

0003<I2 

000 


GO TD 1000 

a003‘t3 

000 

991 

UHlTei6,flOlI 

0003*1 <j 

000 


GQ TO 1000 

0003*15 

000 

999 

untTE(6,8891 6!OII9 

0QO3H6 

000 


GO TO 1000 

0003*17 

000 

995 

UniTE(6,885) 

aQ03*)a 

000 


GO TO 1000 

0003*19 

000 

996 

URIT£C6,eB6 ) 

000350 

000 


GO TO 1000 

OD035I 

000 

997 

M!UTE( 6,007 > 

000352 

000 


GO TO 1000 

0OO3S3 

000 

998 

UniTE(6,S88t 

000359 

000 


GO TO lOOO 

000355 

000 

999 

UBITE(6,8891 

000356 

000 

1000 

CALL OOTCflL 

000357 

ooo 


CALL EXn 

000350 

000 

aso 

F0BnAT(29H TRAWSIENT TIME NOT SPECIFIED) 

000359 

000 

B81 

F0RnATt95H CNFUBK HEQUIfiES LONG PSEUDO-COMPUTE SEOUENCE) 

000360 

coo 

8B2 

FORnATtiSH RELAXATION CRITERIA HOT MET) 

000361 

000 

809 

FORMATt ie,20H LOCATIONS AVAILABLE) 

000362 

000 

885 

FORDATt lOH NO ORLXCA) 

000363 

000 

B86 

FORMAT! lOH NO DTIPIEI ) 

000369 

000 

887 

fORMATC lOH NO ARLXCA) 

000365 

000 

889 

FOnflRTflBH NO OUTPUT INTERVAL) 

000366 

000 

889 

FORMAT! 9H NO NLDOP ) 

000367 

000 


END 


DATE 022675 
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DATE 0228 rs 
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ooooal 
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000001 
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cqoebq/pb 
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000 c 
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ooo c 
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QSilljOS-lO, 1 

suquoutine codero 

SOBRDUTlNE COOERO (CODE READ) READS THE TITLE BLOCK AND THE 
HEXT FOUR BLOCK HEADER CARDS. IE. BCD 3N0DE DATA, 

BCD 3CQNDUCT0H DATA, BCD 3C0NSTANTS DATA, AMD 
BCD 3ARRAV DATA. 


CDR I 
CDR 2 
CCR 3 
CDR 1 
CDR 5 
CDR 6 

con 7 


COnnDM/JPS/JPSTOT, FACTOR 
cannDM /bucket/ bi 1 1 

CDnnOM /LOGIC/ LIODE.LCONO.LCOMST.LACBAV.LPRIHTjKBHNCH 
1 ,]fIXC (50 ),KTPRMT,AVPnNT,GE«ERL,LO,LONG 2 

COnnOM /TAPE/ HIM, NDUT, INTERN, L 03 D, LB 1 P, LOTI , LUT 2 , LUT 3 ,LUT 1 
COnriDN /DATA/ NND.NHA,NND,HNT,HGL,NGR,N 0 T.NlfC,NECl,NEC 2 ,NCT,LEHA, 
1 EnDATA,PROGRn,ENORUN,LSEOI ,LSE 02 ,LDNG 

COnnON /PLDGIC/ PARIHT, PAHFIM, PNODE. PCONO, PCONST, PAHHAV, 

I PTITLE, PChGIO 

COPinOH /POINT/ LOCt 20 ),LEH 1201 ,LENBKT,TlTLEt 20 J 
INTEGER ALPH, THERM, PCSLNG, CODE, END. REflAHK, TEMPB, CONDB, 

1 CONSTB, AnHVB, EMDOAT. PRINT. HINIT, GENRLP, BLANK, TITLE 

2 FINE, PCMCID 

integer COLI (COnnNT.PCSSHT , block 
INTEGER OB.ENOPnn 

LDGICn’, LNODE,LLDGlC,LENO,NQREAn 

LOGICAL LCOND. LC 0 N 5 T, LARRAV, LPHINT, GENEBL, LONG 
LOGICAL PAHINT, PAHFIN, PNODE, PCONO, PCONST, PARRAV, PTITLE 
LOGICAL KTPnNT,AVPHNT,l 0 ,L 0 NG 2 

DinEMSION ALPHIlIl, IBIII, BLOCK! 1 ), LLOG tCI 1 1 
DIFIEHSION FtXCl t 1 
EQUIVALENCE UFIXC.FIXCI 
EQUIVALENCE IB.lBl, ( LLOG I C, LNOOE I 
DATA END /6HEN0 /,GLANK/6H / 

DATA THEnn/6ltTHEPnA/ , PCSLNG/6ML tPCS/ 

DATA REnARK/6HBE(1 /, PRINT/6H • / 

data TENPB /6IIN0DE 0/ , CONDB /6HCQNDUC / , COM5TB/6HCONSTA/ , AHRVB 

1 /6MABRAV /, GENRLP /6HGENERA/ , H I N I T/6H I NIT I A/, ENDDAT 

2 /6IIEND OF/, FINE/6HF1NAL / 

DATA CONNNT /IIIC/, PCSSHT /6HL 5PCS/. JTMO /IH2/ 

data (BLOCKI I 1, 1 = 1 ,1 > / 6 HNDDE D, 6 HC 0 M 0 UC, 6 IICQNSTA, 6 HAHRRV / 

DATA Q 8 / 6 HS 0 URCE/ 

DATA EN 0 PHn/ 6 HEND PA/ 

CONMON/SROCOn/COLl ,CeL27,ALPH,COOE,H 
INITIALIZATION 


COR 

CDR 

VERS- 

COR 

COR 

COR 

CDR 

CDR 

CDR 

CDR 

,CDR 

CDR 

COR 

CDR 

con 

CDR 

CDR 

VEH5- 

CP9 

VERS- 

VERS- 

COR 

COH 

COR 

CDR 

COR 

COR 

COR 

CDR 

CDR 

CDR 

COB 

COR 

CDR 

CDR 


a 

9 

005 

I I 
12 
13 

II 

15 

16 
IT 
10 
19 
2D 
21 
zz 

23 

21 

-005 

26 

■005 

■005 

27 

28 

29 

30 

31 

32 

33 
31 

35 

36 

37 

V 6 

38 

39 
10 


KFL0U=0 

fLAST=0 

PTITLE=. false. 
PHOOe=. FALSE. 
PCOND=. false. 
PCONST=. false. 
PARRAV=. FALSE. 
lprint=. false. 
KTPRNT=. FALSE. 
ayprht=. false, 
PARIHT=. FALSE. 


CDR 11 
COR 12 
CDR 13 
COR 11 
con 15 
CDR 16 
COR 17 
CDR 18 
COP 19 
COP 50 


coBEnn/PB 


/ 


OftTE 0228T5 


PACE 


2 


OOOOS6 

000 



P8RFIN=. FALSE. 

COR 

51 

()aQOt:T 

000 



tONG2=. FALSE. 

VERS 

-005 

000058 

ooo 



L0=. FALSE. 

CUR 

52 

000DS9 

000 

c 



COR 

53 

000080 

000 

c 


REAO DCO 3THEHnAL/GEHEPAL CARD 

COR 

59 

000081 

000 

c 



COR 

55 

000062 

000 


10 

CONTINUE 

CDR 

56 

000063 

000 



CAI.L SREADCt I 1 


V 6 

00006‘» 

000 



IF 1 CQLl.NE.COnnNT) GO TO 20 

cnR 

58 

000085 

000 



UPITE (N0UT,87O) BLANK .CCL27 , ALPH,CQL1 

CDR 

59 

000068 

000 



GB TO 10 

CDR 

60 

O0006T 

000 


20 

CONTINUE 

CDR 

61 

000068 

000 



IF < ALPHl 37.Ea.ENmjAT1 GO TO 520 

COR 

62 

000069 

ooo 



IF ( ALPIK 3>.EQ.ENDPnni GO TO 10 

CDR 

63 

OOOOTQ 

000 



uniTE (N0UT.&201 

CDR 

69 

000071 

ooo 



URITE INDUT,660I ALPK 

CDR 

65 

000072 

ooo 

c 



CDR 

66 

0000/3 

000 

c 


DEBUG PRINT IF • IN CDLUNN BO 

COR 

67 

000079 

000 

c 



CBR 

68 

000075 

ooo 



IF lALPIK 19 l.EO. PRINT! LPRl NT = . TRUE. 

CDR 

69 

000076 

ooo 



IF (ALPHC 37.NE.THERH) GO TO 60 

CDR 

TO 

000077 

ooo 

c 



CDR 

71 

000078 

000 

c 


THEHUAL PBOBLEfl - CHECK FOR LONG OR SHORT PSEUDO COMPUTE SEO . 

CDR 

72 

000079 

000 

c 



CDR 

73 

QDD030 

□ DO 



IF lALPHt9>.ME.PCSLKG J GO TO 30 

CDR 

79 

000081 

000 



LUfif.s.TRUE. 

CDR 

75 

000032 

ooo 



IF ( ALPtU 5 l.Et). ITUO) L0NG2= .TRUE . 

VERS 

-005 

000003 

009 



GO TO 80 

CDR 

76 

000009 

000 


30 

IF ! ■ ;.PHt9 f.HE.PCSSHTl GO TO 500 

CDR 

77 

000085 

ooo 



GO 00 

COR 

70 

000086 

ooo 

c 



CDR 

7 t 

000087 

ooo 

c 


r.;ECK FDR INITIAL PARAMETER RUN 

COR 

80 

000083 

ooo 

c 



CDR 

01 

000089 

ooo 


90 

C087INUE 

COR 

B2 

000090 

000 



IF i ALPHI 31.NE.HINITI GO TO 50 

COR 

83 

000091 

000 



PAB1NT=.TRUE. . 

CDR 

89 

000092 

ooo 



"CHSlOiMINIT 

COO 

85 

000093 

000 



URITE ILB3DI < HINI T, 1 = 1 .5 Q 1 

VERS 

3 

000099 

ooo 



CALL INCOHE <01 

CDR 

07 

OOOQ95 

oco 



GC TO BO 

CDR 

88 

000096 

000 

c 



CDR 

89 

000097 

000 

c 


FINAL PARAMETER RUN 

COR 

90 

000098 

000 

c 



CDR 

91 

000099 

ooo 


50 

IF (iLPH« 3),HE.-FINE1 CO TO 510 

CDR 

92 

DOOlOO 

000 



PARF fJl^.TflOE. 

CDR 

93 

OOQIOl 

000 



pchgio=fine 

COR 

99 

000102 

000 



URITE (L63tn < FINErI = 1 .50 > 

VERS 

3 

000103 

ooo 



CALL INCORE < 0 ) 

CDR 

96 

000109 

ooo 



GO TO 00 

CDR 

97 

000105 

000 

c 



CDR 

98 

000106 

ooo 

c 


CHECK FOR GENERAL PROBLEM 

CDR 

99 

000107 

095 

c 



CDR 

too 

000108 

G tl L 


60 

CONTINUE 

CDR 

101 

090109 

ooc 



IF 1 ALPHl 31.NE.GENRLP 1 GO TO 90 

COR 

102 

0001 10 

ooo 



GENERL= .TRUE, 

CDR 

103 

OOOIIt 

ooo 



00 70 !=l> 10 

CDR 

109 

000112 

000 



LOCI 7 1=0 

CDR 

105 




livsivjsa 






caoenD/ps 


OQOU3 
OQOU1 
0001 15 
0001 10 
Qooi ir 

OOOllS 
0001 19 
000120 
000121 
000122 
000123 
000129 
000125 
0OOI26 
000127 
000128 
000129 
OOOl 30 
000131 
000132 
000133 
000139 
000135 
000130 
000137 
000138 
000139 
000190 
000191 
000192 
000193 
000199 
000195 
000196 
000197 
OOOI9B 
000199 
000150 
000151 
000152 
000153 
000159 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000169 
000165 
000)66 
000167 
000168 
000169 


?0 COMTINUE 

SET UP TITLE 

80 COHTINUE 
«=0 
JI = 1 

90 CALL SnEADC(2l 

IP ccoLi.NE.cannNTi GO To 100 
UR1TE 1N0UT,690) BLANK , ALPH, COLl 
GO TO 90 

100 CALL SREADCt 3) 

IP tCOOE.EO.ENDI GO TO 120 
PTITLE=.TRUE. 

UniTE (N0UT,630) CODE,N,< ALPIK I 
ti=n+N 

IP < lLhST.GT.20 ) GO TO 90 
J=J1 
K = 0 

00 no i=j,« 

lLAST=t 

IF 1 I .GT.20 » GO TO 90 
K=K*I 

TITLE! I )=ALPHIt: J 
no CONTINUE 
Jl=M*l 
GO TO 90 

120 URITE (N0UT,650) CODE 

IF mLAST.EO.O).ANO.!PARlNT.On,PAHFI«) » GO TO 190 

IF ( tLAST,GE.20) GO TO 190 

ILAST=IUAST*1 

PILL OUT TITLE UITH BLANKS 

DO 130 I=ILAST,20 
TITLEI I »=BLAHK 
130 CONTINUE 

WRITE TITLE ON TAPES 

190 CONTINUE 

CALL WRTDTA !0) 

IF I PARINT.CR.PARFIN) GO TO 530 
CALL URTPrlT 10) 

ZERO ARRAY OF FIXED CONSTANTS FOR CALLS TO OATARD 

DO 150 1-1,50 
IFIXCI I 1=0 
150 CONTINUE 

IF ! .NOT.GENERL > GO TO 160 
IFIXCI 31 1=2 
GO TO 260 
160 CONTINUE 

IF <LONG ) IFtXCOl 1=1 
FIXCC50)=1. 
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COR 106 
COR 107 
COR loa 
COR ID9 
COR 110 
COR III 
COR 112 

V 6 

COR 119 
COR 115 
COR 116 

V 6 

COR no 

COR 119 
COR 120 
COR 121 
COR 122 
COR 123 
con 129 
CDR 125 
COR 126 
CDR 127 

COR 120 ' ■ . 

CDR 129 

CDR 130 

CDR 131 

CDR 132 

CDR 133 

CDR 139 * 

CDR 135 

CDR 136 

COR 137 

CDR 138 

CDR 139 

COR 190 

CDR I9l 

COR 192 

COR 193 

COB 199 

CDR 195 

COR 196 

COR 197 

con 190 

CDR 199 

CDR 150 

CDR 151 

CDR 152 

CDR 153 

con 159 

con 155 

CDR 156 

CDR 157 

COR 150 

CDR 159 

CDR 160 

CDR 161 



CaOEHD/P& 


/ 


DATE 022675 


PAGE 


000170 

000 

C DEAD (SCD 3N0DE DATA) BLOCK 

CDR 

162 

OOOtTl 

000 

c 

CPR 

163 

000172 

000 

170 CONTINUE 

CDR 

169 

000 IT3 

000 

CALL SOEADCCM 


V 6 

00017** 

ooo 

‘ URITE (NQUT,6701 BLANK, C0L27, ALPH, COLl 

CBR 

166 

000175 

QOO 

IF (CQLUEO.COnnNTl 60 TO 170 

CDR 

167 

OOOITA 

000 

IF CALPtU 1). ED. REMARK 1 GO TO 170 

CDR 

160 

000177 

000 

IF < ALPHl 31. NE. TEMPO) GO TO 510 

COR 

169 

000178 

000 

100 CONTINUE 

CDR 

170 

000179 

000 

CALL SREAOC(l) 


V 6 

OOOlfiO 

000 

URITE (NOUT,670l BLANK , C0L2T , ALPH, COL 1 

CDR 

172 

0001 01 

000 

IF 1 COLl.Ea.CQMMNT) GO TO IBO 

con 

173 

000182 

000 

IF 1 ALPHC 1 I.EQ.END) go To 230 

CDR 

179 

000183 

000 

KBRNCH=1 

CDR 

175 

00010*1 

ooo 

lnooe=,troe. 

CDR 

17^ . 

COOIOB 

000 

LCONO=. FALSE. 

CDR 

177 

000106 

000 

LC0NST=. FALSE. 

CDR 

178 

OOOIB7 

ooo 

LARBAV=. false. 

CDR 

179 

000138 

ooo 

NI«C=LENBKT/6 

COR 

too 

000139 

ooo 

LOCt I 1=1 

CDR 

181 

000190 

ooo 

LEM( 1 1=0 

CDR 

102 

000191 

ooo 

00 190 1=2,6 

CDR 

183 

000192 

ooo 

FACT0R=I ,0 



000193 

ooo 

LOCt 1 l=LOCt 1-114-NINC 

CDR 

189 

000199 

ooo 

LEflt I 1=0 

COR 

185 

000195 

ooo 

190 CONTINUE 

CDR 

186 

000196 

ooo 

call OATARD 

con 

187 

000197 

000 

call SQUEE7 ( 1,5 I 

CDR 

IQS 

000198 

ooo 

CALL WRTDTA 1 1 1 

CDR 

189 

000199 

ooo 

call URTPOT til 

COR 

190 

000200 

ooo 

IF t .NOT.LPRINTl GO TO 230 

COR 

191 

000201 

ooo 

URITE <NOUT,7201 NNQ, NNA, NNB, NNT 

CDR 

192 

000202 

ooo 

URITE <NQUT,T001 ( I ,LOCI I l.LENl I >. 1 = 1 .5 1 

CDR 

193 

000203 

ooo 

M=L0C(5 1*LEN< 5 1-1 

CDR 

199 

000209 

000 

URITE (NOUT,TIO) ( ! , 1 BC I l.Bl 11, B( I 1, t = 1 ,M 1 

CDR 

195 

000205 

ooo 

CO TO 230 

CDR 

196 

000296 

ooo 

C 

COR 

197 

090207 

ooo 

C read I BCD 350URCE DATA! BLOCK IF ANV 

CDR 

190 

Q002C8 

000 

C 

CDR 

199 

O0O2O9 

ooo 

200 CONTINUE 

CDR 

200 

000210 

ooo 

IF ( ALPIU 31.NE.CB ; GO TO 510 

CDR 

201 

000211 

ooo 

210 CONTINUE 

CDR 

202 

000212 

000 

CALL SREAOCn 1 


V 6 

000213 

ooo 

URITE (NP'Jt.670l Blank. CQL 27, ALPH, COLl 

COR 

209 

000219 

ooo 

IF (COLl .ED.COnnNTl GO TQ 210 

COR 

205 

000215 ' 

ooo 

IF ( ALPIK 1 l.EO.ENDl GO TO 230 

CDR 

206 

000216 

ooo 

UKOOE=, FALSE. 

CDR 

207 

000217 

ooo 

LO=.TflUE. 

CDR 

208 

000218 

ooo 

LENI 2)=0 

con 

209 

000219 

ooo 

LEN(3I = 0 

CDR 

210 

0OU22O 

ooo 

CALL OATARD 

CDR 

211 

000221 

ooo 

CALL SOUEEZ ( 1,5 1 

CDR 

212 

000222 

ooo 

IF t .HOT.LPHINTI GO TO 220 

CDR 

213 

000223 

ooo 

URITE (NOUT.700) ( I , LOCt I 1 ,:.EN( 1 1. 1 = 1 ,9 } 

CDR 

219 

000229 

000 

ni = LOC( 2 1 

CDR 

215 

000225 

ooo 

M' LOCt 3 l*LEN( 3 1-1 

Con 

216 

000226 

ooo 

URITE INOUT.riOl 1 1 , B( I 1,B(1 1 ,B( I 1, I=M1 1 

CDR 

217 




U-” ' 




caa£RD/pa 


OOOZ2T 
000228 
000229 
000230 
11002 51 
000232 
000233 
00O239 
000235 
000236 
0O0237 
000230 
000239 
000290 
0Q02H1 
0002H2 
0002H3 
000299 
000295 
000296 
000292 
000298 
000299 
000250 
000251 
000252 
000253 
000259 
000255 
000256 
000251 
00025B 
000259 
000260 
000261 
000262 
000263 
000269 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000279 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000202 
000263 


220 CdHTTNUE 

READ CBCD SCONDUCTOR DATA) BLOCK 

230 CORTIHUE 
JPSTDT=0 
END FILE 27 
REUIUD 27 
CALL SREADCt 1 ) 

WHITE tNaUT,670l BLANK ,C0L27, ALPR .COLl 
IF ICOLl.EQ.COtmHT) GO TO 230 
IF 1 ALPI1C 1 l.EQ.BEnAHK > GO TO 230 
IF ( ALPHC 3).NE.CQND&1 GO TO 200 
290 CONTINUE 

CALL SREADCCn 

uniTE <NDUT,670) BLAHK,C0L27, ALPH,C0L1 
IF (COLI.EQ.COnnUT) GO TO 290 
IF ( ALPHC n.EQ.END) GO TO 260 
KBANC)i = 2 
LrjDDE=. FALSE. 

LCONO=.TfiUc. 

LCONST=. false. 

LARHnv=, false. 

NNEU=LEN0KT-1 UOC( 5 l+LEMI 5 ) )*1 
NtNC-NNEU/5 
LDC(6)=L0CI51*LENt51 
LENT 6 1=0 
00 250 t=T,10 
LOCI I >=LOC( I-l )*«INC 
LENC I )=0 
250 CONTINUE 
FACTaft=l. 

CALL DATARD 

JJI$T=L0CC6 I 

J JEN0=L0C1 6 )+LENf o )-l 

URITE (27> < J.jj=JJ!ST,JJENO» 

CALL WATPffTl 2) 

CALL UHTOTAC 2 » 

READ (27) ( Be Jj ).JJ=JJtS7, JJENO ) 
call SQUEEZ(6.I0) 

IF ( .NOT.LPRIMT) go to 260 
URITE (N0UT,73OI NGL.NGR.NGT 
WRITE (NOIJT>700) ( I .LOCI I ),LEN( I) , I =6 , 10 ) 
ni^LQCl 6 I 

ft=LOCt to WLEMI 10 1-1 

URITE (NOUT.nO) I 1 . IBI I ),B( 1 ), B< I), 1=711 .71 ) 

READ (BCD 3CDNSTANTS DATA) BLOCK 

260 CONTINUE 

CALL SREAOCIl) 

WRITE IN0UT.6T0) BLA9K , C0L2T . ALPH ,COLI 
IF rCOLl.EQ.COTmNTI L' TO -60 
IF (ALPKI 1 I.EO.BEnARK) GO TO 260 
DATA IFLOU / 6HFL0U 0 / 

IF tALPtt(3) .NE. IFLOUl GO TO 265 
KFLOU = I 





DATE 022875 PAGE 5 

COR 218 ‘ i 

CDR 219 
COR 220 

CDR 221 i 

con 222 « 

VERS 7 


V 6 

COR 229 
con 225 

con 226 
COR 227 
COR 223 
U 6 

CDR 230 
CDR 231 
CDR 232 
CDR 233 
COR 239 
COR 235 
CDR 236 
COR 237 
COR 238 
COR 239 
COR 290 
COR 291 
con 292 
con 293 
con 299 
COR 295 

CDR 296 
VERS 7 
VERS 7 
VERS 7 
VERS 7 
VERS 7 
VERS 7 
VERS 7 
CDR 250 
CO^ 251 
COR 252 
CDR 25 3 
con 259 
COR 255 
COR 256 
CDR 257 
COR 258 
CDR 259 

V 6 

COR 261 
CDR 262 
CDR 263 
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00028H 

000 



CAUL FLOUl 



0003S5 

ooo 



GO TO 260 



0002B& 

000 


265 

CONTINUE 



000287 

000 



IF IflUPriC 3).NE.CQNSTB1 GO TO 510 

CDH 

264 

000288 

000 

1 


IF ( ALPHt INl.EQ.PtllNT) KTPBNT= .TRUE, 

COR 

265 

000280 

000 


270 

CONTINUE 

COP 

266 

000200 

ouo 



CALL SREROC(l) 


V 6 

000201 

000 



WRITE tNCltT,o701 BLANK, C0L27 , ALPH, COLl 

CDR 

268 

000202 

000 



IF ( CCrLl.EQ.CONIINT) GO TO 270 

COR 

264 

000203 

000 



KBRNCK=3 

COR 

270 

000204 

ooo 



LNQDEs.rALSE. 

con 

271 

000205 

000 



UCONQ=. FALSE. 

COR 

272 

000206 

000 



LCOHST=.’flUE. 

COR 

273 

000207 

ooo 



LAnoAv=, false. 

con 

274 

00020B 

800 



NNEW=LENOKT-tUOC« lOl+LEHt 101 )*l 

COR 

275 

000200 

ooo 



N1NC=NNEU/2 

COR 

276 

000300 

ooo 



LOC( 1 1 l^LOCf 1D1«LEK( 10) 

COR 

277 

000301 

OQO 



IF IGENERL) L0C( ll)=l 



000302 

ooo 



LENl 11 1=0 

con 

276 

000303 

000 



LGC< 12 I^LOCC 1 1 l-vNfNC 

COR 

279 

000304 

ooo 



LEN( 121=0 

COR 

280 

000305 

ooo 



CALL DATARD 

COR 

281 

000 300 

000 



CALL S0UEE2 t 11,121 

COR 

282 

000307 

ooo 



CALL UHT07A ( 3) 

cnn 

283 

000308 

ooo 



call imTPPIT t 3) 

con 

284 

000304 

OQO 



IF 1 .NOT.LPRINT 1 GO TO 280 

COR 

285 

000310 

000 



uniTE tNOUT,740) NUC,NECl,NEC2,«CT 

con 

286 

000311 

ooo 



WRITE tH0OT,rS0) ( 1 , 1 F I XC( Tl, IFIKCt I ), IF! XC< 1« ! = l ,50 1 

COR 

287 

000312 

OOO 



UntlE CNOUT,t'!101 ( 1 ,LGC( I ),LEN( 1 1, 1^11.12) 

COR 

268 

000313 

ooo 



m=Loct 11 ) 

CDR 

289 

000314 

ooo 



n=LOC< 121»LEN( 121-1 

con 

290 

000315 

ooo 



WRITE (NOUT,7lO) t 1 , 1 B( 1 1,BI 11 ,8( n, t=nl ,M ) 

con 

291 

000316 

000 

c 



con 

292 

000317 

ooo 

c 


READ IBCD 3AnRAV DATA) BLOCK 

con 

293 

000316 

000 

c 



con 

294 

000319 

000 


280 

CONTINUE 

COR 

295 

000320 

ooo 



call SBEAOCI 1 1 


V 6 

000321 

ooo 



WRITE (NOUT,670I BLANK ,CQL27 , ALPH, COLl 

con 

297 

000322 

000 



IF (COLl.EO.COMnWTl CO TO 280 

COR 

298 

000323 

000 



IF < ALPHt 1 I.EO.REnARK 1 GO TO 280 

COB 

249 

000324 

ooo 



IF ( ALPIK 3 l.NE.ARRVB 1 GO TO 510 

con 

300 

000325 

000 



IF IBLPm 14 ).E0. PRINT) AVPRNT= . TRUE . 

COR 

301 

000326 

ooo 


290 

CONTINUE 

con 

302 

000327 

000 



CALL SREAOCI 1 1 


V 6 

000328 

ooo 



WRITE (N0OT,6T01 BLANK ,CDL27 , ALPH ,CGU 

con 

304 

0D0329 

ooo 



IF icon .EQ.COnnNT) GO TO 240 

COR 

305 

000330 

ODO 



IF (ALPHI11.EQ.EN01 GO TO 300 

con 

306 

000331 

000 



KBBNCH=4 

con 

307 

000332 

000 



lndde=, false. 

COR 

308 

000333 

ooo 



LCOND=. false. 

CDR 

309 

000334 

ooo 



LC0H5T=. false. 

COB 

310 

000335 

ooo 



LAARAVs.TRUE. 

CDR 

311 

000336 

ooo 



LOCI I31°LQC< I2)*LEN( 121 

con 

312 

000337 

ooo 



LENl 131=0 

con 

313 

000338 

ooo 



LOCI 14 1=L0C( 13 1+200 

CDR 

314 

000339 

ooo 



LENl 14 1=0 

COR 

315 

000340 

ooo 



LOCI 15 )=LOCI 14 1+200 

con 

316 
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tlD038i 

000 



LEI91 15 )=0 

CDR 

317 

C; 


0003‘I2 

OOQ 



CALL QATARD 

COR 

318 



0003<i3 

000 



BAIL inbED 


V 9 



0003‘J'I 

000 


300 

CGN71NUE 

CDR 

319 

r 


0003HS 

000 



CALL SOUEEZ t 13,15 ) 

COR 

320 



00Q3<I6 

000 



CALL UnrOTA (9) 

COB 

321 



0003*17 

OOQ 



CALL UBTPrtT (9) 

CDR 

322 



0003*»Q 

000 



IF t .KOT.LPRINTl GO TO 310 

ccn 

323 



0003*1*) 

000 



UniTE (MOOT, 760 > LENA 

CDR 

329 



DQ03S0 

000 



uniTE <NOUT,700> < I ,LDC( I ), LEN( I ), 1=13. 15 ) 

con 

325 



0003^1 

QOO 



fll=LOC( 131 

CDR 

326 



000352 

000 



n=LOCt IS )+LEm 151-1 

CDR 

327 

'J! 


000353 

000 



UBITE (NQUT,710) Cl , l&t 1 1, B( I ),B( tl. I=R1,R) 

COR 

328 



000350 

000 

c 



CDR 

329 

•r 


000355 

ooo 

c 


NOBnAL BETUHN 

CDR 

330 

i- 


00035& 

000 

c 



COR 

331 

i 


000357 

OOQ 


310 

CQHTIWUE 

CDR 

332 



00035B 

000 



IFCKFLOUl 312,319,312 





000359 

QOO 


312 

CALL FLDU2 





000360 

ooo 



GO TO 316 





00036t 

000 


31*1 

J = 0 





000362 

000 



UB1TECLD301 (J,t=1.61 





000363 

ooo 


316 

IF CGENEBL) GO TO 320 





00036*1 

000 

c 


SET LOG AND LEN FOB CALL TO PSEUDO 

COR 

339 



000365 

000 



NHEU=LENDKT-C LOCt 15 l*UENl 15 J»+I 

COR 

335 


tf 

000366 

ooo 



NINC=HNEU/2 

CDR 

336 

•i 

i 

000367 

ooo 



LOCI 16 )=LOCt 15 HLENI 15 ) 

COR 

337 

■y 


000360 

ODO 



LEW 15 1=0 

CDR 

338 

: T 

I\5 

000369 

ooo 



LOCI 171=L0CC 16)*NINC 

CDR 

339 



000370 

OOQ 



LENC17 1=0 

COR 

390 


1 

000371 

000 

c 


CONVERT ABBAYS AND CON5TA7CTS TO FORTRAN 

CDR 

391 



0DD3T2 

ooo 


320 

CONTINUE 

COR 

392 



000373 

ooo 



1*1=9 

COR 

393 

- •\. 


00037H 

ooo 



J = t 

CDR 

399 

; i;; 


000375 

QOO 


330 

IF CLENtni.EQ.01 GO TO 900 

CDR 

395 



000376 

000 



lt=LOCtfll 

COR 

396 



000377 

QOO 



KENO=K+LENttH 

COR 

397 


%% 

ot 

000373 

OOQ 


390 

IT¥PE=FLOeO,6,IBIK?) 

CDR 

3*8 


000379 

000 



FLOt 0,5. lAOOB l = ITVi»E 

COR 

399 


000300 

000331 

ooo 

ooo 



ITVPE=nOOt ITVPE,9 1 
IEND=1 

CDR 

CDR 

350 

351 


000302 

000 



IF tC ITVPE.EQ.Ol.OB.t ITYPE.EQ.Zn tEN0=2 

CDR 

352 


??< 

000303 

OOO 



00 390 1=I,!EN0 

CDR 

35 3 


00030*1 

ooo 



LITA = FLDI 6,1,1BCKI) 

CDR 

359 


000305 

ooo 



IANUn=FLDC 7,19, IDI K n 

COR 

315 


000386 

ooo 



IF (LITA.EO.l 1 CO TO 350 

COR 

35^ 

sir • 

h'L' 


000387 

ooo 



CALL RELACr 1 2,{RNUn,J,nl 

COR 

35 r 


000308 

ooo 



GO TO 360 

Con 

358 

r 

000399 

ooo 


350 

IANUn=IANUn*HUC+l 

COR 

359 

■ j 


000390 

ooo 



IF (n.EQ.91 IANUn=t ANUM»NEC1 

CDR 

360 



000391 

ooo 


360 

FLiHS, 1. IA0DR1=LITA 

COR 

361 


V** 

000392 

OOQ 



FLOt 6, 16, lADOR ] = IANUn 

CDR 

362 



OD0393 

ooo 



LITK = FLO( 21,1. IBCK 1 ) 

CDR 

363 


* 

000399 ■ 

OOO 



FNUn=FLDC 22, 19,IBt K 1 1 

con 

'69 



000395 

ooo 
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SUBROUTINE COMBIWtNTftPE, KT, INCi lUNITl 
DiriENSION NBUFBI27), XSTftHTU), XSTOPIT) 

COnnON /XVARV/ OftTflll) 

BATA ALpHft /IHA, IHE, IHC, IHD, 1H5 ,1H6 , IHE , IHFj IHG , IHH, IHI , IH J , IHK , 
1 IHLjlHM/ 


UP1TE(6,3) 

3 FUHnOTC imiOXSOUDUTPUT FROM COllBINE SUBROUTINE//) 
IFtlUNIT ,EQ. 01 lONlT = 7 
RebilNP KT 

IFtHTAPE.GT.O) GO TO 7 
NTftPE = -NTRPE 

READ t 5,6 ) t XSTARTt I ),XSTOP( II, I = 1,NTAPE) 

A FOnnATC 19F5-3) 

7 IUNIT1=IUNIT-1 
DO 39 L=l,NTAPE 
n=o 
N=Q 

i=L*iu«rn 

REuIND t 

15 REAUt I ) INBUFRl J 1, J=I,261, NSL, I OATA( J ), J= l,NSL 1 
NBUFRl 27 ) = NSL 
IFlL-l 1,15 

9 REAB( 1 )TinE,(DRTA(X),K=l,NTOTAl.> 

IFlTinE-XSTAtlTl L) 19 
IFt TItlE-XTlME ),2l,30 
URITEt 6, 12 1 

12 FORMATt IH010X39HTAPES ARE NOT IN THE CORRECT OROER > 
CALL EXIT 

URITEIKT) NBUFR, C DATA( J 1 , J = I ,N5L ) 

NTOTAL = 0 
QD 18 J=!7,27 
18 HTOTAL=KTDTAL*NBUFRt J ) 

21 READ! I )TinE,tDOTA{K),K = l,NTQTALJ 
IFI TtnE )29 

IF{ TirtE-XSTAHTI L 1 121 
1FIXSTDP1L1)27,27 
IF< TinE-XSTeP<L»l27 
TIHE=-TinE 

29 IFt L-NTAPE)33,30,33 
27 n=n-i 

lF(ri),,2l 

n=iHC 

XTlfie=TIME 

30 UniTElKTI TIME, <0ATA1K>,K=1, NTOTAL) 

IFIN.EQ.O) UR|TE(6,31) TIME.L 

31 F0BnnT(l3X Fio.s, 26H HAS BEEN LOADED FRBD TAPE 12) 
H=I 

IFt TinEI,21,2l 
END FILE KT 
REMIND KT 
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CCS CONTAINS THE DIFFUSION TEMPERATURE CHANGE ALLOWED (OTMPCA) 
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CC6 CONTAINS THE MATIMUM ALLOWED TIME STEF (DTIMEHl 
CCS CONTAINS THE HEU ARITHMETIC TEMP. DAMPING FACTOR ( DAMPA 1 
CCIO CONTAINS THE NEW DIFFUSION TEMP. DA.>1PING FACTOR lOAMPOl 
CCVl contains The maximum ALLOUEO arithmetic TEMP. CHANGE lATMPCA) 
CCIZ CONTAINS THE BACXUP SWITCH CHECKED AFTER VARIABLES (BACKUP! 
CC13 CONTAINS THE PRESENT TIME 0R PHOBLEn START TIME (TIMEOI 
CCl*t contains the mean TIME BETWEEN AH ITERATION (TIMEII) 
CCI5 CONTAINS THE DIFFUSION TEMPERATURE CHANGE CALCULATED IDTMPCC) 
ecu CONTAINS ARITHMETIC TEMPERATURE CHANGE CALCULATED I ATMPCC I 
CONTROL CONSTANT 17 IS RESERVED FOR THE C/SG MINIMUM (CSGMINl 
CONTROL CONSTANT IB CONTAINS THE OUTPUT INTERVAL (OUTPUT/ 
ecu CONTAINS The ARITHMETIC RELAXATION CRITERIA ALLDUEO (ARLICAJ 
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CC26 CONTAINS THE DIFFUSION RELAXATION CRITERIA ALLOWED lORLXCAl 
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CC2B CONTAINS THE LINE COUNTER, INTEGER (LINECTI 
CC29 CONTAINS THE PAGE COUNTER, INTEGER (PftGECT! 
CC30 contains arithmetic relaxation change CALCULATED (ARLXCCl 
CC31 IS INDICATOR, 0 =ThERMAL SPC 5, 1 =THERMAL LPCS,2=GENeflAL (LSPCS1 
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595 GFtNTStl ~ l.O/nVSl 
GO TO 560 

550 GFtNTSn = l.07f 1.0/GRfJTSn+RVSH 
560 IF(NTS2 .LT. 11 GO TO STO 
TS2 = 1*0 - VPCHV) 

HVS2 = W(HTS2»*E7XS2/XS2 
IF<GF(NTS2>» 565,563,565 
563 GF{HTS2) = 1.0/BVS2 
GO TO 570 

565 GFINTS2J = 1 . 0/ 1 I -0/GFl HTS2 1+7IVS2 ) 

570 tFC.NOT. COP) GO TO 600 
CALL LIHECKO) 

IFINTSI .CT. 0) NTSl = NEXTlLTB+NTSl ) 

1F1NTS2 .GT. 01 HTS2 = HEXTt LTB+HTS2 1 
XSl = VPldVJ 
nw = NExrtLV»avi 

UHI7E(6,500) MV, E, XSl, NTSl, BVSl, MT52, HVS2 
580 FOBMATW TX 7HNV =110 , 0X THE = G13.8, 

1 5X 7HXS1 = G13.6, 5X 7HNTS1 = IlO , OX TKBVSl = G13.8/ 

2 7X THM7S2 = tlO , SX THGVS2 = G13.S 1 


600 COmiMUE 


MFSV = ( K-LFSVl/5 
IFI HFSt. .LT. 1 1 GO TO 602 
ASSIGN 623 TO KK 
ASSIGN 1085 TO LL 
L = LFSV 

DO 6018 t=l,MFSU 
HTSl = KEXTtL + H ) 

HTS2 = NEXTIL*5) 

00 6011 J=9,L20,9 
K = L19 * J 

IRNTSl .EO. NDATA(tC) .DR. NTS2 .EQ. NDATAtKll GO TO 6013 
6011 CONTINUE 
C ERROR 

6013 NPU = N“ -.rA(K*l 1 
HEXTCL*3 1 = NPU 
DO 6019 J=9,120,9 
K = L19 ♦ J 

IFtMPU .£0. NDATAIK«211 GO TQ 6016 
6019 continue 
C ERROR 

6016 NEXT(L*2J = NORTRlKl 
L = L * 5 
6018 CONTINUE 
C 

602 nPRN = MPRN * 2«NFSV 
H = fipnN»iMPnN-^n/2 
NTH = NTH • 5»NF5V 
L26 = NTH ♦ 1 
NTH = NTH ♦ n * 3 
L27 = NTH ♦ 1 
NTH = fJTH ♦ nPHN * 1 
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006 
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006 
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000159 

002 


NC = NAXO (NFRN.NTOl 
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625 continue 
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000179 

002 


630 DO 680 J=l,NPBN 
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600 CONTINUE 
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K - L27 ♦ NPBM 
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L = LFSV 
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006 
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NPU = NEXTtL+31 
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685 CONTINUE 
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690 N = NPRN 

000200 
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002 


NTFNR = NPt 

000202 
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000203 
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000209 

OOZ 
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NIFH = NPI 

000206 
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IF fLP.EO.01 call NNREADC5I 
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IFCN1FH ,6T. 01 NIFH = NEXT! LP +NtFEi) 
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790 FORHATf 69K0* » • ERROR IN LOCATING PRESSURE NODE UlTR inPOSED 1 
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BOO IFfNPO ,GT. 01 GO TO 810 

000222 
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000223 

002 
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000229 

002 
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000225 
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PINSPBNI =0.0 
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call CMPRSSI 0.a,NSPRH,£XTf L26*3 l.EXTC L2T+1 1 , KEXTf L20 l.i860 1 
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002 
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000231 

002 
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002 

C 
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000235 
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000240 
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C 

00025S 

002 
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000256 

002 
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IFfNSPHH .Gt> 01 HSPRN = NEXT! LP+NSPBN 1 
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URITE(6,830f NSPRN, NDATAtL15*l> 
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CALL EXIT 
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C 
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C 
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c 
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000261 
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000262 
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000263 

002 
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000265 
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CALL LtNECK<2) 
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000266 
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000267 
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CALL 6EH0UTtEXTIL26»ll,I,NEXTtL26» ,'OPBESSURE NODES IBELATIVEl'l 

000268 

002 

CALL L!NECK<2) 

000265 
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Call GENQUT t EXTI L26*3», I.NEXTI L26 1-2, 'OCOEFFICIENT nATRlX'l 

000270 
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CALL LINECKI 2 ) 

000271 

006 

CALL GEN0UT(EXT(L27+1 ),l,nPRH ,'ORIGIIT HAND STOP') 

OOQZ72 
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CALL LIHECK(2) 

000273 

002 

930 CALL SV(lS0HEXT(L26*3>,nPRN,EXTtL2T-»l 1, 610201 

0002 75 

002 

IFICOPJ CALL GENOOT(EXT»L27+n,l,NEXTIL2ai,'OPhES5UHES' J 

000275 

002 

GO TO 1060 

000276 

002 

C 

000277 

002 

1020 CALL TOPLIN 

000278 

002 

IOntTEl6,l050 1 N0ATAtLI5 + n 

000275 

002 

1050 F 0 nnATI 6 UlO> » • error in solving pRESSURE/FLOU equations for NET 

000200 

002 

lUOAK A6, TU * • 0) 

000281 

002 

CALL ULKDCK 

0QO2B2 

002 

NTH = L25 - I 
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002 

call OUTCAL 
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C CALCULATE L£U FLQU RATES 
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HTO = tlOATA(K*21 



000302 

002 

NFRn = NEXT1L25+NFRI1) 
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000309 

006 

PNFRfl = PtHFR/i) 



000305 

006 
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000308 

006 

DO 1090 I=1,NF5V 



000309 

006 
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000325 ' 

002 

C 



000326 

002 

IF( .HOT. COP) GO TO 1)20 



000327 

002 

CALL L1HECKI3) 



000328 

009 

GFHTBa GF1NTB1 



000329 

002 

HTB a HEXT(LT8*rJTB ) 



000330 

009 

MHtTEt 6, 1100 ) HTB, HFRPi.NTD.GFNTB.PNFRM, PNTO, ( 
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IFtXVtPU .GE. AVGtL + tOQll GO TO 799 



000259 

001 



AVGLOCtL* 50 1 = BUFRt 1 1 



000260 

001 



AVG tL+lOOl = xvtni 



000261 

001 


799 

CONTI DUE 



000262 

OQl 


75 2 

LJ = J - ITEMS * 1 



000263 

001 



LJI = J - 1 

CEPLT265 


000269 

001 



IFtMPNT .EQ. 1 1 URITEf 6,7601 ( XVI L 1,L=LJ ,t J 11 



000265 

001 


760 

FOfinAT llOFll.31 

GEPLTZ67 


000266 

001 



IF (IFIFIIS .ED. 11 GO TO 800 

GEPLT26G 


000267 

001 



I = 1*1 

GEPLTZ69 


00026Q 

001 

c 


CHECK FOR nAxtnun 

NUMBER OF P0IHT5GEPLT270 


000269 

001 



IF (I -LE. Nrvnsi GO TO 600 

GEPLT271 


000270 

' 001 


780 

NTvns = I-l 

GEPLT272 


000271 

OQl 



GO TO 820 

GEPLT273 


000272 

001 


BOO 

NTvrs =" I 

GEPLT279 


000273 

oot 

c 


COMPUTE THE NUPtOEH OF WORDS USEO 

IN THE XV ARRAVGEPLT275 


000279 

OOl 


820 

NTQTL = J-1 

GEPLT276 


000275 

001 



REWIND IHSTRV 

GEPLT2T7 


000276 

001 



UniTES 6,090 1 ITEMS, 1. NTOTL 

GEPL727Q 


000277 

001 


89 0 

FORflAT (IH0,I10,92H DATA VALUES HAVE BEEH STORED 

FOR EACH OF, 16. GEPLT279 


000278 

001 



I L3H TinE POINTS/IXnO, 30H DATA VALUES HAVE BEEN 

STOnEOl GEPLT280 


000279 

OOl 

c 





0002 B0 

oot 



IFtWTPTS .EO, 0) GO TO 852 



000281 

001 



untTE(6,B931 HOR, NTPTS. ASTRT, ASTOP. START, STOP 



000202 

001 


89 3 

FOBMATtlHl I2A6/ 



000283 

OOl 



X 'OTHE NUMERICAL AVERAGES FOB THE r’OLLOWlnG ITEMS 

WERE REQUESTED* 



1 








V 

CO 


FL0?LT 



f 

DATE 

00028H 

OOl 


S • FOR THE' 19,' TIHE POINTS'/' BEGINNING UlTH'F''-3, 


0002B! 

001 


X ' HRS., ftNO ENDING UITH' FT. 3,' HR'. '/' ACTUAL TIMES 

FT. 3, 

0QO2Q6 

001 


X » HB5., AND ' FT. 3,' HRS.’//' ITEM TVPE 

OESCHIPT . 

0002BT 

001 


XlOH' 91X 'AVEHAGE'TX'MAX VALUE'5X ' TIME' TX 'MIN V AUUE'SX 'TIME' / 1 

ooases 

001 ' 


TPTS = NTPTS 


0002S9 

001 


DO 099 L=1,N0AVG 


000290 

001 


rt = 1ABSI ITMAUCtLll 


000291 

001 


«n = LOCin*l 1 


000292 

001 


IFinn .LT. 0) GO TO 899 


000293 

001 


AVG( L 1 = nVG( L WTPTS 


000299 

009 


UR ITE< 6,896 ) I TEm PI 1 , 1 T VPEt Ml , ( T 1 TLESt J ,H ) , J=2,9 1 , AVGI L 1 , 


000299 

001 


X AUGtL*50l, AVGLOCILI, AVG(L*100l, AVCL0ClL*501 


000296 

001 


896 FORNATl V.XI5, 9IA2, 5X0A6, IXF10.2, 2t6XFl?'.2, 2XFT.31) 


0Q029T 

001 


899 COMTINut 


000290 

081 


052 CONTINUE 


000299 

001 

c 

FIND THE RAXinUN ANQ PlINtnUn 

OnOIHAT£SGEPLT909 

000200 

001 


920 I = 1 

GEPLT90S 

000301 

001 


990 J = I 

GEPLT906 

000302 

001 

c 

PICK UP THE INPUT UALUESGEPLT'IDT 

000303' 

00 ; 


VB = YLOl 1 > 

GEPUT908 

000309 

001 


VT = VHIt I 1 

GEPLT909 

DOQ309 

OQI 


LVS = -1 

GEPLT910 

000306 

001 


IF tvr-v01 960,960,980 

GEPLT9U 

000302 

001 


960 YO = I.EIO 

DEPLT91Z 

000303 

001 


YT = -l.ElO 

GROLTHIS 

000309 

OQI 


980 K = I*I 

VLT919 

000310 

DO] 

c 

CHECK FOR 

ERROR ITEMtfPLTHlS 

000311 

001 


IF tLOCIKI .LT. 0) GO TO 1020 

5EPLT916 

000312 

001 


IF ( t YHIC n-YLOt t 1 l.GT.0.01 1 LVS = 1 

5EPLT917 

000313 

001 

c 

COMPARE WITH THE TAPE VAL0ESGEPLT9 t 0 

000319 

001 


OD JOOO L=K,NTOTL, ITEMS 

GEPLT919 

00O315 

001 


YB = An|Nl{XV(Ll,VBI 

GEPLT920 

S00316 

001 


1000 YT = AMAXll XYtLl.YT) 

GEPLT921 

000312 

001 

c 

CHECK FOR 

LAST ITEMGEPLT922 

000318 

001 


1020 I - I»1 

PEPLT923 

000319 

001 


IF tt .LT. ITEMS) GQ TO IOhO 

GEPLT929 

000320 

OOl 


JFINIS 1 

GEPLT925 

000321 

001 


GO TO 1060 

GEPLT9Z6 

000322 

001 

c 

CHECK FOR NEW GRID SETGEPLT927 

000323 

001 


1090 IF lITEPHll .GT. 0) GO TO 900 

GEPLT920 

000329 

001 


1060 YLCC J ) = VB 


000325 

001 


VHKJl = YT 

GEPLT935 

000326 

OOl 


IF (JFIMJS .EO. 0) GO TO 990 

GEPLT936 

000322 

OOl 

t 

■ PRINT THE ITEMS TO 

BE PLOTTEDOEPLT93T 

000328 

001 


WRITE 16,1100) 

GEPLT93B 

000329 

001 


IlOO FORMAT! IHl 19X 'ITEM TYPE* 6X 'AVG PLOTTING SVPIOOL AND' 


000330 

QOl 


X • DESCRIPTION' 20X 'V-MIN V-MAX STATUS'/) 


000331 

OOl 


JJ = ITEnS - 1 


000332 

QOl 


DO 1200 l=l,J/ 


000333 

009 


URIT£< 6,1 19 0 )I , ITEPU 1 >,1TYPE( 11,1 TITLES* J, I ), J = l . 9 ), YL(H I 1, 

000339. 

001 


1 VHII I ), LOCt K-l ) 

GEPLT996 

000335 

001 


1190 FORHATt 9X 15, 5XI5,2XA2,7XA6,1X8A6,6X1P2EI 1.3,1 T» 


000336 

OOl 


FLO« 6,6, ITYTL5C 1,1 H = FLOl 30 , 6 , I TYTL S( 1 , I 1 ) 


000332 

OOl 


nVTLStl.Il = CHt ANDI ITYTLSI 1. I ),01 ),02 » 


000330 

001 


1200 CONTINUE 


000339 

001 

c 


GEPLT9S3 

000390 

OOl 

£ 


GEP1LT959 


PAGE 


JL 


FLOPLT 


/ 


DATE 0228T5 


PAGE 



000391 

001 


000392 

001 


00039 3 

001 


000399 

001 


000395 

001 


000396 

001 


Q0039T 

001 


000398 

001 


000399 

001 


000350 

001 


000351 

001 


QQ0352 

001 


000353 

001 


000359 

001 


000355 

001 


00035 6 

001 


00035 T 

001 


000358 

001 


0003S9 

001 


000360 

001 


000361 

001 


000362 

001 


000363 

0D| 

b 
1 1 

000369 

001 

000365 

oot 

1 

o 

000366 

001 

' c\ 

000367 

001 

000368 

00.1 


000369 

001 


000370 

001 


0003TI 

001 


000372 

001 

O o 

000373 

000379 

000375 

001 

001 

Ool 

Pcf CJS 

000376 

001 

81 

000377 

001 

000376 

001 


000379 

ODI 

000380 

001 


000361 

001 

000382 

001 

■‘H S 

0003B3 

001 

000389 

001 

« ^ ' 

00Q3B5 

001 

S-fiB 

000386 

001 

000387 

001 

000388 

oot 


000389 

001 


000390 

001 


000391 

001 


coo 392 

001 

. 

000313 

001 


000399 

001 


000395 

001 


000396 

001 


000397 

001 


C STADT THE PLOTTIMGGEPLT^SSS 

1220 URITE 16,12<IOt GEPLT'iSG 

12*10 FOnnATl IHljSeX, IHHSTAttTtNG PLOTS/ > GEPLT*I57 

C COMPUTE THE NUMBER OF GRIDS HEOUtnEDGEPLT*i58 

HGRDS = .9999 * {TZ-Tfll/TPG GEPLT959 

C IHITtALIHE THE ABSCISSA LtmTSGEPLT*i60 

m = I GEPLT961 

ABSn = TA GEPLT962 

C CENTER THE CASE TITLEGEPLT963 

NCA = NBLANK (TITLER,12> GEPLT96H 

MPA = 590 - 6*NCR GEPLT965 

NPX = 2T6 
NCB = 59 

C start the GRID SET L00PGEPLT96B 

DO 1620 T=1,NGRDS GEPLT96T 

KFIHIS = 0 GEPLT968 

C set the LEFT-HAND tinjT5GEPUT969 

IL = IR GEPLT970 

nasL = Aflsn geplthti 

ABSR = ABSL+TPG GEPLT972 

isy = i 

NAVG = 0 

CALL Oi(Ovif{ J,ABSL,ABSR>DELX,NEX,LABX.NUnX,30.0,IERX > 

7BSL = INmABSL-OELX)/DELX>«DELX 
2flSn = 1RTC(ABSR*0ELX»/DELX>»0ELX 
IFI 7BSL»DELX .LE. ABStl 2BSL = 2B5L • OFLX 
1FCB5R-DELX .GE. A0SB! ZbSR - 2BSR - DELX 
tPCABSR .GE. 10.1 NlJMX=NUnX-I 


J = I 
1300 K = 1 


1320 


1390 

1360 


DO 1320 L=l,20 
TITLEBILI = BLANK 
TITLECIL) = BLANK 
CALL FILMAVtOJ 
JC = J 

QO 1360 L=1,9 

TITLEB(L) = TITLESILfJCl 

NC = FLDt 6,6, ITVTLSC l,.'C 1 ) - 98 

IF (NC.GT.91 GO TO 1300 * TOD MANV CURVES 

IF (LOC( JC + l I.LT.Ol GO TO 1300 • ERBOH ITEM 

FLD(0,30,TITLEB( t 1 I = FLD( 0. 30,PSVM( NC 1 1 

NPV = 1005 - NC»1B 

NMAR = NC 


LOAD THE ABSCISSA VALUESGEPLT973 
SET THE ITEM C0UNTERGEPLT989 
GEPLT985 

SET THE CURVE C0UHTERGEPLT9 86 
GEPLT987 

CLEAR the SUBTITLE AHRAVSGEPLT988 

GEPLT9B9 

GEPLT990 

GEPLT99I 

GEPLT992 

' GEPLT999 

GEPLT995 
GEPLT996 


GEPLT99B 
GEPLT999 

GEPLT503 

C WRITE THE SOBTITLE5GEPLT509 

CALL hITEBVCNPX, NPV, 1023, 90,1, NCB, 1, TITLES, NLl GEPLT50S 

1380 JC = JC + 1 GEPLT506 

IF I ITEPU JC l.GT.O 1 GO T0 1390 GEPLT507 

NPV = 1029 -tNPV-91 GEPLT508 

NHAR = ( NnAR • I X IS 
IFINOAVG .GT. 0 1 NMAR £ NMAR -r ID 

C DRAW THE GRIDGEPLT509 

C SUBROUTINE DXOVV CALCULATES CERTAIN ARGUMENTS FOP GRIDIV, SUCH AS 

C The INCRErlEHTS FDR LINE SPACING DELX AND DELV, THE FOLLOWING 


■A 


■ 11-87 


FLDPLT 


/ 


0A7E 0228rs 


FftGE 


000376 

qoi 

c 


PHOCEDUBE ilOJUSTS THE MAX AND niN LIMITS OF THE 

GRID TO 


000399 

001 

c 


INSOHE THAT THEY ARE INTEGRAL MULTIPLES OF THE IHCBEnEHTS 


000900 

001 



CALL OXDVVI 2,YL0U1,VHl( J ), DELY ,HEY ,LABV, NUMY , 30 . 0, 

lEBY) 


0009O1 

001 



VLQJ = INTICVLOUI - OELY J/DELY )»OEL¥ 



000402 

00 1 



YHU = INTCIVHKJ) + DELV l/DELV )*DELY 



000403 

001 



IFIYLOJ • OELV .LE. VLOIJll YLOJ = YLDJ + DELY 



000404 

001 



IFCVBIJ - DELY .GE. VHltJJl YHU = VHIJ - DELV 



0004R5 

001 



YLOtJ) = YLOJ 



000406 

001 



VMltJJ = YHU 



000407 

001 



CALL SETMIVI 140, 20,50, HMAR) 



G004QB 

001 



CALL SETCIVI 12.1Q1 



U00409 

001 



IF( LABY. ED-10 > LA5Y = 5 



000410 

001 



LABV = -LABY 



0Q04U 

OQl 



CALL GRIDIVC 2 , 2BSL ,ZBSR, YLO( J 1 , VH 1 1 J 1, BELX , OELV ,NEX 

,NEY,LABX, 


000412 

001 


1 

1 LABY.NUnXjNUnV ) 



000413 

001 

c 



LABEL THE 

AXESGEPLT511 

0004H 

001 



L = IGSC J 1 


GEPLT512 

000415 

OOl 



CALL R1TE2V(456.9,I023,90,1,24,l,BCDX,NL) 


GEPLT513 

000416 

001 



CALL H1TE2VC 92, 300, 1023,160, 1,24, 1 .BCOVt 1,L1,NL 1 


GEPLT514 

000417 

DOl 

c 


UBITE 

THE CASE TITLEGEPLT515 

000416 

001 



CALL niTE2Vi MPA,1005, 1023,90,1 ,NCA,1,T1TLEA.NL1 


GEPLT5I6 

000419 

001 

c 


CHECK FOB 

TOO MANY CURVESGEPLT517 

000420 

0^1 


1400 

IFtK-eT-4) GO TO 1440 



000421 

OOl 

c 


CHECK 

FOR ERROR 

1TEMGEPLT519 

000422 

OOl 



IFf LOCI J*1 J.LT-01 GO TD 1480 



000923 

001 

c 


LOAD THE BESPECTIVE 

ORDINATE VALUE5GEPLT521 

000424 

001 



!F( I5U -ED. 0 » GO TO 1499 



000425 

QOI 



JJ = D 



000426 

001 



no 1403 KK=|L,NTVnS 



000427 

OOl 



L = ITEMS KK-I 1 ♦ 1 



000428 

OOl 



1B=KK 



000429 

OOl 



IFIXVILl -t . ABSBl GO TO 1406 



000430 

001 



JJ = JJ + 1 



000431 

001 


1403 

ABSUJ > = XVtLl 



000432 

QOI 


1406 

NPT5 = JJ 



000433 

001 



15U = 0 



000434 

OOl 


1409 

no 1420 L=t,NPTS 



000435 

OOl 



M = ITEMS*! 1L*L-2 I*J*1 


GEPLT523 

000436 

OOl 


1420 

0R0(L1 = XY< Ml 


GEPLT5 24 

000437 

001 

c 


BRANCH TO THE APPBOPBIATE PLOTIV 

SUBROUTINE 

CALLGEPLT52S 

000436 

001 



CALL BOPLCTCKI 


GEPLT5 26 

000439 

001 



GO TG 1520 



000440 

001 

c 



TOO MANY CUBVESGEPLT52e 

00044 1 

OOl 


1440 

UBITE 1 6,14601 t Tl TLES< L , J 1 ,L= 1 , 9 ) 


GEPUT529 

00044 2 

001 


14A0 

FORMAT) 15X,BHSKTPPING,5X,9A6,5X,2eHTG0 MANY CURVES 

ON THIS GRID) GEPLT530 

000443 

001 



GO TO 1550 



000444 

OOl 

c 



ERROn 

ITEMGEPLT532 

000445 

OOl 


1480 

UntTE (6,1500) < TITLES! (. .J ).L=I, 9 1 


GEPLT533 

000446 

001 


1500 

FORMAT! l5X,flHSKIPPING,5X,9A6,5X,2lMTHFS ITEM IS IN 

ERRQR 1 

GEPLT5 34 

000447 

001 



GO TO 1550 



000440 

OOl 


1520 

UniTE ( 6,1540 ) (TmE5(L,J),L = l,91 


GEPLT5 36 

00044 9 

001 


1540 

FORMAT! I5X,6HPL0TT!NG,5X,9A6 ) 


GEPLTS37 

000450 

ODl 

c 


BUMP THE ITEM AND 

CL’RVE CQUNTERSGEPLT5 36 

00045 I 

QOI 


1550 

TFCNOAVG -EQ, 0) GO TD 15T5 



000452 

OOl 



1F(J -HE. I ABS! tTMAVGI HAVG*l 1 ) > GO TO 1575 



000453 

001 



HAVG = NAWG ♦ 1 



000454 

OOl 



IF!N))AVG .EO. NAYGl NDAVG = 0 




1 


D-88 


/ 

/ 

FLOPLT MTE 022875 


OOO^SS 

OCi 


IFlITnAVGlNAVGl .6T. 0) GO TO 1575 





0004S& 

'dOl 


IF(K»l.GT. 4) GO TO 1575 





000457 

001 


tF(LQCtJ+l> .LT. 0) GO TO 1575 





000458 

001 


NC = FUDt6,6,tTVTLStl,J)) - 47 





000459 

001 


K = K *-l 





0004&0 

001 


TITLEBt 1 ) = PSVPUK 1 





000411 

001 


T1TLE3(21 = OHAVERAG 





000462 

001 


TITLEBt 3) = 6HE 





000463 

001 


DO 1553 L=4,20 





000464 

001 

1553 

TITLEBt L 1 = 6H 





000465 

001 


NPV =1005 ~ 18*tlC 





000466 

001 


CALL HITE2V(NPlt,«PY, 1023,90 . 1 , MCB , 1 

, TITLES, HLJ 




000457 

001 


ISU = 1 





000468 

001 


DO 1556 L=1,NTPTS 





000469 

001 


ABStL) = AD St I STARTED 





000470 

001 

1556 

OnOtLl = AUGtNAVG) 





000471 

001 


7JPTS = NTPTS 





000472 

001 


CALL GOPLOTI K ) 





000473 

001 

1560 

CDHTinuE 





000474 

oot 

1575 

J = J * 1 





000475 

001 


K = K+I 




SEPLT540 

000476 

001 

C 


CHECK 

FOR 

END 

OF 1TE71SGEPLT54 1 

000477 

001 


IF (J .LT. ITEflSJ GO TO 1580 




GEPUT542 

000478 

001 


*Fl«IS = 1 




GEPLT543 

000479 

001 


GO TO 1600 




GEPLT544 

000480 

oot 

c 


CHECK 

FOR 

NEU GRIDGEPLT545 

000481 

001 

1580 

IF (ITEfUJ) .GT. 01 GO to 1400 




GEPLTS46 

0004P2 

001 

1600 

IF 1 KFtNIS.EQ.Q » GO TO 1300 




GEPLTS47 

000483 

001 

C 

■ 

REFEHENCE 

THE 

NEU 

GRID SETGEPLT548 

000404 

oot 


IL = in 




GEPLT549 

000495 

oot 


ABSL = ABSH 




GEPLT55G 

000406 

oot 

1620 

CONTINUE 




GEPLT55 1 

000487 

001 


lOB = 0 




GEPLT552 

000488 

001 

164 0 

CALL FtLRAVtOl 




GEPLT553 

000489 

001 


NCA5E = NCASE * 1 




GEPLT554 

000490 

001 


CO TO 240 




GEPLT555 

000491 

001 


END 




GEPLT556 


END ELT. 


PAGE 9 


AHDD.P FLORES 


FLORES 


BRTE 022875 


FA6E 


/ 


4ELT.L FLORES 

ELTOTT BLIBTO O2/20“O3t 19 t 29-t 2, ) 


OOQQOi 

OOQ 


SUBBOUTINE FLORES! L30,NTB 1 

000002 

000 

1 C 


000003 

QQO 


LOGICAL LRO, L«U, COP 

000009 

000 

c 


DOOODS 

000 


DtnENSIQN BDATAI t) 

000006 

000 

c 


ooooor 

000 


COnnOH /ARHAV / TABLE ( 1 1 

OOOOQB 

000 


connoo /Tsnp / t ti> 

000009 

ooo 


COlinOH /XSPACE/ NOin, NTH, NEXT! 1 1 

QOOOIQ 

000 


COnnON /PQlNTfl/ LHQOE, LCQNO, LCONS, LARBV, ICOOP, LTB, LPB 

QOOOll 

000 


COnnCH /FLOOAT/ NDATA 111 

000012 

000 


COnnOH /TYPDAT/ TYPE {10,11 

000013 

000 


connoo 7UDDT / U (11 

000019 

000, 


ccnnort /flouq / gf (ii 

000015 

000 


COnnON /FLOUR / APR (11 

000016 

000 


COnnON /FDATA / COP. LFQ, NRO, RO, LNU, NHU, XflU, GC2 

OOOOIT 

000 

c 


OOOOIS 

OOQ 

c 


000019 

000 


EOUIVALEKCE ( RDATAt 1 1, NDATA( 1 1 1, tHL,NHL:', (MFF.FFni 

000020 

000 

c 


000021 

ooo 


DATA riAXI /65000/ 

000022 

000 

c 

• 

000023 

DtO 

c 


000029 

000 


UOTB = AB5tU(NTB)) 

000025 

ooo 


H9 = 9.O»ut,T0 

000026 

ooo 


BSUn = AFR(NTB) 

00002T 

000 


IC s NBATA(L30) 

000028 

ooo 

c 


000029 

ooo 

i: 

FLUID LOUP LOOP 

000030 

ooo 

c 


000031 

ooo 


□0 200 t-I.IC.3 

000032 

000 


tC - L30 * I 

000033 

ooo 


HFU = NOATftfKI 

000039 

OOl 


IF (HFL .LT, 11 GO TO 200 

000035 

ooo 


ITVPE = «QATA< K+I 1 

000036 

000 


NTL = M0ATA(K*2) 

00003T 

ooo 


C5A i TYPE! 1,1 TYPE 1 

000038 

oos 


HP = TYPE! 2, ITVPEl 

000039 

oOo 


ML = TYPEI 5.1TYPE1 

000090 

000 


FFn s TVPEC 6, ITVPE) 

000091 

ooo 


FFC = tVPE( 7, ITVPE) 

000092 

ooo 


FLLD = TYPEt I0,1TVPE1 

000093 

ooo 

c 

• 

000099 

ooo 


IFILRO) CALL DIDEG1(T(NFL).TABLE(NhOI. ROl 

000095 

ooo 


IFtLMO) CALL DlDEGIl Tt NFD.TABLEI NflU ),XnU 1 

000096 

ooo 


BE a U9/inO/UP 

000097 

QUO 


IFtiYtIL .FT. 0 .AND. NHL .LT. MAXI) CALL D1DE6H RE . TABLEC NHL 1 , HL 1 

000099 

000 


IFIRE .GT. 2000.01 GO TO 100 

000099 

noo 


unu = xnu 

000050 

;’>00 


IF(LnU> CALL DIOEGH T(NTL l. VABLEl NHU >,Un0 > 

000051 

oco 


FF = 69 .07RE*5aRT(unu/XnU 1 

000052 

00k 


GO TO 160 

000053 

000 


100 IFIOFF .EO. 0) GO 10 120 

000059 

coo 


call OtOES1tBE,TABLEtnFF],FF> 

000055 

ooo 


GO TO 160 


D-90 



FLOHES D«7E 02287$ l*8GE 2 

000056 000 120 IFCOE .LT. lOOO.O) GO TO IHO 

000057 000 FF = 0.3l6/S0RTlS0RTlfiEn 

000050 000 GO TO 160 

000050 OOO 1»»0 FF = 0.2006002052 * HE*( -0 . 106e265325E-3 • HE*t 0.6235703T65E-7 

000060 000 I * RE»l -0.6S5*)5ei8E-il J ) > 

0O0061 000 ISO n = (ff<ffc«flld +HL i>;>imB/GC2/csA/csn/no 

000062 000 . RSUn = RSUtl * R 

000063 000 C 

00005<t 000 IF( .NOT. C0P ) CQ TO 200 

000065 000 CRLL LIHECKIS) 

000066 000 WRlTEl6,iaoi NEXTt LNODE+MFU ), T< NFL 1, ITVPE, NEXTt LNOOE+NTL 1, 

000067 000 I T<NTL>, UP, CSO, FLLO, MFF, FFC, HL, RO. X«0, RE, FF, B 

000050 000 TOO FOPNATl/ 77 IHNFL = IIO , OX TtlT( NFL )= G13.8, 

000060 OOO t 5X THITYPE = 110 , 8X THNTL = !I0 , 8X 7HT(NTL1= G13.6/ 

000070 OOO 2 7X 7H1JP = G13.8, 5X 7MCSA = CI3.8, 5X 7HFLL = G13.8, 

000071 OOO 3 SX TU-ff = 110 , 8X TKFFC = G13.B/ TX 7BHL = G13.B, 

OOOOTZ OOO H BX THRO = G13.8, 5X 7HMU = G13.8, 5X 7HBE = G13 9, 

000073 - OOO ■'5 5X 7HFF = G13.B/ TX Tilt! = GJ3.8 J 

000075 OOO 200 CONTINUE 

0000/5 000 GFINTBI = I.O/RSUn 

000076 OOO C 

00007T OOO IF! .NOT. COP) GO TO 300 

oooore ooo call lipjeck c 2) 

000070 ooo UFUTEt6,220 ) GFINT3) 

ooocao ooo 220 FOBnftTC/ TX THG(NTB)= G13.8I 

OQOOBI 000 C 

000032 OOO 300 RETURN 

000083 000 C 

000035 OOO END 

END ELT. 
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000 
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000013 
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000019 

000 
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000 
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000016 

000 
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000 
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000 
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000022 

000 
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000023 
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DATA MAXI /6500O/ 
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000 

c 
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000 

c 


000029 

000 

c 
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OOO 
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000032 

OOO 
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0OO033 
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000039 

ooo 


NWLV = NFL0UIL91+1) 

000035 

ooo 


MODE = KFL0mL9l*9 1 

000036 

ooo 


IFCnODE .EO. 01 GO TO 190 

000037 . 

DOQ 


xmwi = RFLDWIL9l*5 1 

000038 

000 


XHAXl = RFLCUC L9t*6 ) 

000039 

OOO 


NSEN = NFLOUI L9 1*8 1 

000090 

ooo 


(C = nfL0UCL91 ) 

00009 1 

QOO 


IFI 1C ,E0. 10) GO TO 160 

000092 

ooo 


nSET = NFLDWIL9l*9) 

000093 

ooo 


IFINSEN ,CT. 0 .ANO. N$EH .LT, 10000) TSEN = T(NSEH) 

000099 

ooo 


IFtHSET .GT. 0 .AND. nSET .LT. 10000) TSEV = TtNSET) 

000095 

ooo 


1F( 1C ,NE. 12 1 GO TO 125 

000096 

ooo 

c 


000097 

ooo 

c 

RATE LiniTEO 

000090 

ooo 

c 


000099 

000 
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000050 

ooo 


IFC ABSC TSEN-TSET) - TOO) 190,190,110 

00005 1 
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000D52 

000 
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fjoo 
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000056 000 VP(NVLV) = AHINlf VPI NVLV )+X0QT*DTlftE0, XHAX 1) 

000057 OOO GO TO 190 

000050 000 C 

000059 000 C POLTHOniAL 

000060 000 C 

000061 000 125 DT s T5EN - TSET 

000062 000 XSS = GFLOWl L9 1+10 1 + DT*1 RFLOUt LH 1 +1 1 > + DT«( RFUOUt L9 1+121 

000063 000 I * DT«<RFL0UtL9l + 13) + 0T>{ RFLOUl L91+19) 

000069 000 2 + DT«(RFL0U(L91+15 n>))l 

000065 000 iFrxss - xnirm 135,150,190 

000066 000 135 XSS = RFLOUC L9 1*5 ) | 

000067 000 GO TO 150 

000068 000 190 IFtXSS - XFIAXl 1 150,150,195 » 

000069 000 195 X5S = RFLOUI L9 I +5 1 ] 

ODOOTO 000 150 VP(fJWLV) = X5S • t VP t NVLV J-XSS )*EXP( -DTIMEU7nF1.0UC U9 1+6 ) 1 

DOOOTt 000 GO TO 190 ' 

000072 DOD C 

000073 000 C SUITCR.triG 

000079 000 C 

OOOOTS 000 160 1FlIFIX{(2.0*TtNSENl-RFL0U(L91+91-RFL0U(L9|*10))7<RFLOUlL91+9} 

000076 000 I - nFLaU(L9l + t0im 170,190,180 ■; 

OOQOTT 000 170 VPINVUV) = XnlNl 

000078 000 GO TO 1 90 

000079 000 180 VPINVLVI = XnAX| ■“ 

000080 000 C T 
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00008 2 000 195 CQMTItlOE 

000083 OOO C . 

000089 OOO C SVSTEn 60DP 

000085 000 C ■ 
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000087 OOO C ' 
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000089 OOO C 
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000091 OOO IFlNSVSTflt 19,1 > ,GT. 01 GO TO 1000 

000092 000 NSVSTn(I9,n = KSVSTmO.II 
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000095 OOO IFINRO .GT. I .AND. NRQ .LT. nAXI 1 GO TO 220 

000096 OOO LRO = .FALSE. ^ 

000097 OOO flO = SVSTEn(2,l) 

000098 OOO 220 NtlU = NSySTni3,tl 1 
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000102 OOO XMU ' S^STEnO,!! 

000103 000 230 GC2 ^ SV T-TEni 5 . 11*2.0 

000109 000 TOL = i95TEr»T,J) 

Q00105 OOO nXPASS = fi5VSTn«8,H ^ 

070106 OOO FROF = SVSTER(9,l) 

OOOIOT OOO COP = .false. 

000108 OOO IF iNSVSrrU 10,1 1 .EQ. 0) GO TQ 232 

000109 000 COP = .TRUE. 

OCOIIO OOO IF (LNOOE .EO. 0) CALL NNREAD< t ) 

oooill 000 IF (LTO .EO. 01 CALI. NIUREAOt S 1 
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000 
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OOO 
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000219 
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000 
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OOO 
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950 UK NPI 1 = UHEU 

*30239 

001 
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000 
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000251 
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000010 

ooo 


sum = 

sum + U(NT 6 )*TPQUI 5 iTILflP>l 

oooon 

000 


sun 2 = 

SLfia ♦ WtNTBl 

000012 

000 


OETUBK 


000013 

ooo 


END 



END ELT. 


AtiuG.P FLOTnP 


wm 


hf 

I 






n 

1 



R 

K^I 

[ s- ■ 


FLOTMP 



f 

/ 

[.: 


«LT,L 

FUJTMP 



h; 


ELT0T7 

BL1670 02/28- 

03jl0839-(a. 1 



QOQOOl 

002 


sunnouTiHE FUOTnPiTfiPTim 

1 ,; - 


00QOO2 

oop 

c 


i.': 

Jp ^ 

000003 

002 


1NTEGE8 HEOOE8(12> 



OOOOQH 

000 

c 


i •■ 


OOOOQ? 

002 


C0HP1QN /HDQT/ U( 1 1 



DD0QQ6 

002 


connoN /vflLVP/ vpiii 
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IFtfJTB .HE. KU 1 GO TO 10 
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000 
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:: 
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000010 

001 



COMMON /FLOEHR/ERR 



OOOOII 

coo 

c 





000012 

000 



t s 0 



000013 

000 


15 

call SKrOlJSU) 



C00Q1H 

000 



GO TOC 50, 250), JSU 



C'lOOlS 

000 


50 

1 = 1 



000016 

ooo 



CALL SUBMNFLOUCimSU) 



OOl'OlT 

000 



GO TOC 65.55,220,290,220), ISU 



OOOOIS 

OOD 


55 

URITEC N0UT,60) 



000019 

ooo 


60 

FORnATC96HO* • • :;»1 MUST BE INFOT AS 

AN 

IKTEGEfl % * • /) 

000020 

ooo 



GO TO 290 



000021 

ooo 


65 

KOU = KOL ♦ 1 



000022 

OOO 



CALL SKPBCJSU) 



000023 

ooo 



Go TOC 70,250), JSU 



000029 

ooo 


70 

I = 2 



□00025 

coo 



IFCKAROCKQL) ,EQ. 1HA> GO TO 100 



000026 

000 

c 





000027 

ooo 



CALL 5U8NC NFLOUCZl.ISU) 



000020 

ooo 



GO TOC 65,200,220,290,2201, ISU 



000029 

ooo 


85 

KOL = KOL ♦ 1 



000030 

ooo 



CALL SlCPOtJSU) 



000031 

ooo 



GO TOC 90, 250), JSU 



000032 

ooo 


90 

I = 3 



000033 

ooo 



IFC KARDOCOL) .NE. IHA ) GO TO 115 



000039 

ooo 


ua 

KOL = KOL ♦ 1 



000035 

ooo 



CALL SLIBRCNFLDUC I ),ISU) 



000036 

ooo 



GO T0C200, 105, 220, 290, 2201, ISU 



000037 

ooo 


105 

URTTECNOUT.IIO) 



00003B 

ooo 


no 

FORnATC59KO* * • FLOATING POINT NUMBER 

INPUT FOR ARRAY NUM3EH • 

000039 

ooo 





000090 

ooo 



GO TO 290 



00009 1 

ooo 


115 

00 I 16 1 = 9, T 



000092 

noo 



NFLOUC 11=0 



000093 

ooo 


116 

CONTINUE 



00D»'99 

ooo 



00 150 t = 3,7 



000095 

ooo 



COLL SUBNC NFLOUC n, ISU) 



000096 

ooo 



GO TOC 120,195 .130,290,130 >, ISU 



000097 

000 


120 

TFC NFLOUC I) .GO. 0 > GO TO 195 



00009B 

ooo 



J = I - 3 



000099 

ooo 



URITECN0UT,I251 J 



000050 

. ooo 


125 

FORMATC 9II0- • • C |1, 98H MUST BE INPUT 

AS A floating POINT NUMB 

000Q5I 

ooo 



lER * * » /) 



000052 

ooo 



GO TO 290 



000053 

ooo 


130 

IFt I .GT, 3) GO TO 160 



000059 

ooo 



URITECNGUT.135 ) 



000055 

ooo 


135 

F0RnATt98il0* « • PGLVNOMIAL CONSTANTS 

NOT 

SUPPLIED • • • /1 
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000056 

001 


GO TO 290 

000057 

000 

X*I5 

KOL = KOU + 1 

000050 

000 

150 

CONTINUE 

000059 

ooo 

160 

L = 7 

000060 

ooo 


GO TO 210 

000061 

000 

200 

L = 1 

000062 

ooo 

210 

IF( ISW .EQ. 5 ) GO TO 295 

000063 

000 


CALL SKPTEtJSUl 

000069 

ooo 


RETUHN 

000065 

ooo 

220 

URITE(PJD0T,225) 

000066 

000 

225 

F0nPinT19Btt0* * • EHO FOUND HITHIH FtOH SOURCE DATA 

000067 

001 

290 

ERR =.THU£. 

OOQ06S 

002 

230 

GO TOt 235,250), JSU 

000069 

002 

235 

CALL SKPTE(JSU) 

000070 

ooo 


GO TD( 15,250 1, JSU 

OOOOM 

ooo 

295 

JSU = 2 ' 

OODOT2 

ooo 

25 0 

RETURN 

000073 

ooo 


END 

END EtT. 
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t 

VO 

VO 


'■IlDGfP FLDUl 





D-lOO 


FUlUl 


EftTE 022875 


OODDOl 

000 


SUBROUTINE FLOtll 

OOOD02 

Q'OO 

c 


000003 

ODD 


LOGICAL ERR, TESTlj TESTE, TESTS 

OOOOO') 

000 

c 


OQ0005 

000 


DinENSlON KBLQCKt6) 

000006 

DOQ 

c 


000007 

000 


COnnOH / TAPE / NIN.NOUT, INTERN 

OOOOOQ 

000 


COnnON /CARO / kho, kql, tikkol 

000008 

000 


COnpiON /CinAGE/ KARDteO) 

000010 

000 


connotj /BUCKET/ 18(11 

oooou 

000 


COnnOH /POINT / L0C(201, LENC201, LEN 

000012 

000 


connoN /FoinNS/ ntype,nsvs, ntb, hp. 

000013 

r 1 


COPltlDN /FLQERR/HRR 

oaooio 

000 

c 


000015 

000 


DATA KBLOCK / 9HHETU, 9H50BN, 9HFL0I 

000016 

000 


1 9HVAUV, 9HFLDU, 9HEN0 

000017 

000 

c 


OQDOIB 

000 

c 


000019 

000 


NTVPE = 0 

000020 

0 00 


NSVS = 0 

000021 

000 


NTB = 0 

000022 

000 


HP =0 

000023 

, 000 


NV =0 

000029 

000 


HFD = 0 

000025 

ooo 


TESTl = .FALSE* 

000026 

000 


TESTE = .FALSE. 

000027 

000 


TEST3 = .FALSE. 

000028 

000 


IBLQCK = 9H 

000029 

000 


NSP = 0 

000030 

000 


DO 10 1=1,20 

000031 

000 


IFlLENd) .EQ. 0 1 GO TO 10 

000032 

000 


NSP = LOCI I 1 ♦ LEM( 1 1 

000033 

000 


10 CONTINUE 

000039 

000 


KSP = nsp 

000035 

000 


25 CALL CARDIN! JSU1 

000D36 

000 


30 ENCODE! 35, IBLDCK) ( KARDI 11,1=1 3, U 1 

000037 

000 


35 F0RnATI9Al1 

00003S 

000 


DO 90 1=1,6 

000039 

000 


IFtKOLOCKCn ,EQ, IBL0CK1 GO TO 50 

000090 

000 


90 CONTI NOG 

000091 

000 


UB!T6(«0OT,95 1 

000092 

000 


95 FOBMAT(39HO» • * INVALID BLOCK OESKG 

000093 

ooo 


ERR = .TBUE. 

000099 

_ ooo 


BETURM 

OOOQ95 

ooo 


50 CONTINUE 

000096 

ooo 


GO 70(100,105,300,900,500,6001, I 

000097 

ooo 


100 J = 20 

000098 

ooo 


GO TO no 

000099 

ooo 


105 J = 23 

040050 

ooo 


110 NAHE = 6H 

OO005I 

ooo 


DO 115 KOL=J,t1XKOL 

000052 

ooo 


IF(KARD(K0L1 .NE. IK 1 GO TO 125 

000053 

ooo 


115 CONTINUE 

000059 

000 


GO TO 130 

000055 

ooo 


125 J = niHOI DXK0L,K0L+31 




PAGE 


ORIGINAL PAGE li 
OP POOR qualm 


FLOWl 


DATE 032875 


PACE 


2 







000056 

000057 

000058 

000059 

000060 

000061 

000062 

000063 

000069 

000065 

000066 

DOO067 

000068 

000069 

000070 

000071 

000072 

000073 

000079 

000075 

000076 

000077 

000078 

000079 

000030 

000081 

000082 

000083 

000089 

000085 

000086 

000087 

000088 

000089 

000090 

080091 

000092 

000093 

000099 

000095 

000096 

000097 

000093 

000099 

OdOlOO 

000101 

000102 

000103 

000109 

000105 

000106 

OOOIOT 

000108 

000109 

000110 

000111 

000112 


/ 

/ 


000 ENCQDEt 35,UAFIE) 1 KAHOt K »,K=K01., J > 

000 KOL = J 

QOO 130 CALL CnnOTM tJSUl 

000 CO TO ( 150.2001,1 

000 150 COUTinUE 

000 TESTl = .TRUE, 

000 CALL SySPAHUB(NSP+31.n,IB(NSP*20),JSUl 

OOO L = HSP + 1 

000 IB<NSP*<1 = 16 

OOO IB(NSP*21 = 1 

000 !B(N5P + 191= NADE 

OOO HSP = fISP * 17 

000 IB<N5P*ll = rt * 1 

OOO tBlNSP+21 = 2 

OOD KSP = HSP * n * Z 

OOO GO TOt 195,25 ), JSH 

OOO 195 HSVS - HSVS * 1 

OOO 200 COHTlrjUE 

000 C 

OOO K = 9 

OOO 210 n s HSP * K 

OOO CALL TUBIHl IBini.JSUI 

OOO GO TOC 215,2301, JSU 

OOO 215 HTB = HTB 1 

OOO call LunPlH<L,tB(n*91,JSUl 

OOO IBCPM-S) = L 

OOO K = It ♦ L * 9 

OOO GO TOC ' 10,230 ), JSU 

OOO 230 IBCHSP*!! = K - 2 

OOO IBCNSP4-21 = 9 

OOO IBCNSP+31 = MAHE 

OOO HSP = HSP • K - 1 

OOO GO TO 25 

OOO C 

OOO C FLUID LUnP DATA 
000 C 

OOO 300 CGNTIHUE 

OOO CALL Cardin cjsui 

OOO KODE = 6 

OOO K = 3 

OOO TEST2 t .TRUE. 

000 310 n = NSP * K 

000 CALL FLTVPC IBini.JSUl 

OOO GO T0( 315.5301, JSU 

000 315 CALL FLUnPt L. I Bt 1 1, JSU 1 

OOO TFCLl 325,325.320 

OOO 320 IBCMf-tO) = L 

OOO HTVPE = NTVPE ♦ I 

OOO K = It ♦ L ♦ n 

000 325 CONTINUE 

OOO 326 GO T0(3I0,530 I. JSU 

OOO C 

000 C VALVES 
OOO c 

OOO 900 CONTINUE 

000 GALL CARDIN (JSU) 

000 XODE ° 5 



Ftaui 


y 

/ 


DATE D22BT5 


OOOU3 

000 



X = 3 

aooin 

000 


910 

n = NSP ♦ K 

000115 

000 



CALL VLVINCL,IB(n«2>,IM,J5U1 

000116 

000 



IF(L1 925,925,920 

OOOllT 

000 


920 

IBCfU = L ■» 1 

000118 

000 



ta<n+n a j* 

000119 

000 



K = X + L * 2 

000 120 

000 



NV = HV + 1 

000121 

000 


925 

GO T0<910,5301, JSU 

0C0122 

000 

c 



000123 

ooo 

c 

FLOU SOURCE 

000129 

000 

c 



000125 

000 


500 

CQUTtHUE 

000126 

000 



CALL CARDIN (JCttl 

000127 

000 



KOOE = 3 

000128 

000 



TESTS = .TRUE. 

000129 

000 


505 

K = 3 

000130 

000 


5I0 

n = MSP ♦ X 

000131 

ooo 



CALL FL0UTNIL,TB(tl9l 1,JSUI 

000132 

000 



IF CL-l > 520,520,515 

000133 

ooo 


515 

IBCni = L 

000139 

ooo 



K a K * L + 1 

000135 

ooo 


520 

GO T0(510,530), JSU 

OD0I36 

000 


530 

ID! N5P*1 1 = X - 2 

000137 

ooo 



IBINSP^SI = KOOE 

000138 

ooo 



«SP = HSP * K - 1 

000139 

ooo 



GO TO 25 

000190 

ooo 

c 



000191 

ooo 

c 



000192 

ooo 

c 



000193 

ooo 


600 

CONTINUE 

000199 

000 



IFI TESTl 1 GO TO 610 

C0DI95 

ooo 



URtTEl MOOT. 605 » 

000196 

ooo 


60.9 

F0flnATt95H0* • • SYSTEM PARAMETERS NOT SUPPLIED 

qOOlHT 

ooo 



ERR = .TRUE. 

000198 

000 

c 



000199 

000 


610 

IF( TESTS) GO TO 620 

OOOISO 

000 



uniTE(N0UT.5151 

000151 

ooo 


615 

ronnAT<93HQ* • • fluid lump data not SUPPLIED 

000I5Z 

000 



ERR = .TRUE. 

000153 

ooo 

c 



000159 

ooo 


620 

IFt TEST31 GO TO 630 

000155 

000 



UR|TE(N0UT,625 ) 

000156 

ooo 


625 

F0Rnim99H0» • • FLOW SOURCE RATA NOT SUPPLIER 

000157 

ooo 



ERR = .TRUE. 

000158 

ooo 


630 

CONTINUE 

000159 

ooo 



NLOCS = MSP - XSP 

000160 

ooo 



NFLDU = INTERN 

000161 

ooo 



REUINO NFLCU 

000 162 

ooo 



UHITE(MFLOU) NLOCS, ( rBU-*XSP >, 1=1 , NLOCS 1 

000163 

000 



REUIMD NFLDU 

000169 

ooo 



RETURN 

000165 

000 



END 
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/ 


FLQH2 
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CATE 022875 PAGE 

«UT,t 

FL0U2 





ELTOTT 

BUBTO 02/2B' 

-03il9i39-C 11,1 



ooooot 

007 


SUBROUTINE FLOUZ 



000002 

007 

c 




000003 

007 ' 


LQCICOL ERR 



000001 

OOT 

c 


• 


000005 

007 


COnnoN t TAPE / NtN,N0UT,INTERH,LB3O.I.B1O, 

,LUTI,LUT2,LUT3 


000004 

007 


CQtinON /BUCKET/ IBt 1 ) 



ooooor 

OOT 


COMMON / POINT / I.LOCt20 >,LLEN( 20),LENBKT 



000000 

007 


COMMON /FDinNS/ NTVPE, NSVS, NTB, NP, NV, 

MFD 


OO0O09 

007 


connoH /fuoerr/ERR 



000010 

007 


COnnON/OATA/ ount 12),ERDATA 



OOOOU 

007 

c 




000012 

OOT 


DATA MAXI / 999999 / 



000013 

OOT 

c 




OOOOtl 

007 


HFLOU = INTERN 



000015 

007 


NSP =i 0 



000016 

007 


00 to 1 = 1,20 



000017 

007 


IF (LLEN< I 1 . EG . 0) GO TO 10 



0000 1 a 

007 


NSP = LLOCl I ) *■ ULENt I 1 



000015 

OOT 


10 CONTINUE 



000020 

OOT 


tTB = NSP 



000021 

OOT 


LV = LTB ♦ NTB 

♦ 


000022 

OOT 


LVX = LW * NV 



000023 

OOT 


LPR = LUX * NV 



000021 

OOT 


NSP = MSP + 3»NTB + 2»MV 



000025 

007 


REUINO NFLOU 



000026 

OOT 


HEADIHFLOU) NiOC, ( IBt N5P+ II, 1=1 ,NLQC 1 



000027 

OOT 


KSP = NSP * NLOC 



000028 

007 


REUIND NFLOU 



000020 

OOT 

c 




000030 

007 

c 

FLUID TYPE DATA BLOCK 



000031 

OOT 

c 


, 


000032 

007 


J = MSP 

' 


000033 

OOT 


25 IF(iBtJ+2) -EO. 61 GO TO 30 



000031 

007 


J = J + IBl J + 1 1 * I 



000035 

007 


IFrj-KSPI 25, 80, BO 



000036 

007 


30 IC = IBC J«I 1 



000037 

007 


K = 2 



000030 

007 


10 IFCK .GT. IC 1 GO TO 75 



000039 

007 


L = J ♦ K 



OOOOlO 

OOT 


ISUl = 1 



OOODll 

OOT 


ISU2 = 1 



000012 

007 


ISU3 = I 



000013 

007 


IFI IB(L*51.&r.0.AM0. IB(L*5 l.LT.MAXI » CALL 

ATone >*o,OiTSUt) 


000011 

007 


IFI TB(L*6].Gr.O. AMO. tB(L*6 ).LT. maxi 1 CALL 

ATQRi L«6 )»0»0,TSU2> 


000015 

OOT 


IF( IB(L»01.GT.O,AMD.IBtL*e l.LT.MAXI 1 CALL 

ATOnt IrlBC L+9 fSUll) 


000016 

007 


’SU = ISUl ♦ ISU2 + ISM3 



000017 

OOT 


iFdSU .ME. 3l ERR = .TRUE. 



00001B 

007 


URITEINFLOUI ( IB( L*T 1, t = t , 10 1 



Q00019 

OOT 


K = R * IBlL + in + 11 



000050 

007 


GO TO 10 



00QQ5 1 

007 


75 LTVP = J 



000052 

□ 07 

c 




000053 

007 

c 

LOAD ACTUAL TUBE NUMBERS AND ACTUAL PRESSURE NODE NUMBERS FOR SORTING 


000051 

007 

c 




000055 

007 


80 NT = 0 







DATE 02ZB75 


PAGE 


2 





90t-cr 
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/ 


ooom 

007 


210 

J = J ♦ tBU+1) + 1 

OOOllA 

007 



IFIJ .LT. KSP> GO TO 200 

OOOU5 

007 

C 

SORT AND Check valve HU7I8EH LIST' 

DOOIIS 

007 



IRNVLV .LT. 21 GO TO 219 

000117 

007 



JC = NV-1 

OOOllB 

007 



DO 213 I = 1.JC 

000110 

007 



ASSIGN 219 TO XX 

OOOISO 

007 



KC = NV-I 

000121 

007 



DO 212 K = 1,KC 

000122 

007 



IF { tot LV+K + n-IB( LV+K 1 >211,212,212 

000123 

007 


211 

KEEP = IBt LV*K+1 > 

a0012>l 

007 



FB(LV*K + 1 ) - laiUV+K > 

0Q0I2S 

007 



IBCLV*K ) = KEEP 

000126 

007 



KEEP = lBlLVX+K+1) 

000127 

QOT 



IBILVX<-K*1 1 = IBtLVX+K 1 

000120 

007 



IB(LVX*K) = KEEP 

000120 

007 



ASSIGN 213 TO XX 

000130 

007 


212 

CONTINUE 

0JQI31 

007 



GO TO XX 

00C132 

007 


213 

CONTINUE 

000133 

QQ7 


219 

CALL GENOUTt IB(LV*1 1,1,NV,'0VALVE NUMBER LIST') 

00013') 

007 



CALL GENUUT C IB< LVX* 1 ), 1 ,NV , ' 0 INITl AL VALVE POSITIONS'! 

0001 3S 

007 



IFINVLV ,LT. 2) GO TO 225 

000134 

007 



DO 220 ln2,NVLV 

000137 

007 



lF(IB(LV + n .GT. IBlLV+l-Dl GO TO 220 

000130 

007 



UHITE(N0UT,215) IOlLV+1) 

000139 

007 


215 

FORMAT! 39H0* * • MORE THAN ONE VALVE NUMBER 14, 7H • • > 

OOOI'lO 

007 



ERR = .TRUE. 

vIOlU 

007 


220 

CONTINUE 

000192 

007 

c 

BELATIVUE TUBE NUDBEHS. PRESSURE NODES AND TEMPERATURE NODES 

000193 

007 


225 

J = NSP 

000199 

007 


230 

IFtlBtJ*2> .NE. 51 GO TO 290 

000195 

007 



K = 2 

000194 

007 



1C = IBIJ+IJ 

000197 

007 


235 

IF(K ,GT. Id GO TO 290 

003198 

007 



L = J * K 

000199 

007 



JC = IBIL+tl - 1 

000150 

007 



ISU2 = 1 

000151 

007 



1SU3 = 1 

OO0152 

007 



NVALVE=1B«L93) 

000153 

007 



CALL ATOnt 3,lBIL+31,tV+l.NTB,ISUl ) 

300IS9 

oor 



IFCiniL*9> .GT. 01 call AT0R<9,IB(L*9 ),LTB+1,NTB,TSU2) 

0001S5 

007 



IF(10(L+5> .GT. 0) CALL ATORl 9 , IB« L+5 ), LTS*1 ,NTB , I SU3 ) 

000154 

007 



ISU9 =1 

000157 

007 



ISUS s 1 

00015 S 

009 



IF( |B(L*!01.GT.O. .and. I0CL*IO).LT.MASI 1 

000159 

009 



» CALL ATORI 2.1B(L+10>,C,0,tSU9 1 

000140 

009 



IF( 1B!L*U >.CT.O, .AND. IBt L + 1 1 l.LT.MAX) > 

000141 

009 



> CALL AT0R(2,IB(L''lt 1,0,0, 1SU5) 

000142 

007 



ISW = -ISUl ♦ ISU2 ISU3 * 1SU9 * ISUS 

000143 

007 



IF) ISU ,NE. S > ERR = .TRUE. 

000169 

007 



IFdSU .NE. 5) URITEtN0UT,2361 NVALVE 

000145 

007 


234 

FORMATt'O* • * ABOVE MESSAGCiS) REFER TO VALVE', 16,' ■ 

000l%4 

007 

c 

UniTE VALVE DATA 

000167 

007 



UniTE tNFLOUJ JC.C 10( L+I*2),1=1,JC) 

000143 

007 



IB(L»2) s LOG 

000169 

007 



X = K ♦ |BI L+S ) ♦ I 
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OOOITO 

007 


LOC = LOC + JC + 1 

Q0017I 

QOT 


GO TO 235 

000172 

007 


240 J = J ♦ lBCJ+11 + 1 

00OXT3 

007 


IFCJ .LT. KSPI GO TO 230 

OOOITH 

QOT 

c 


000175 

007 

c 

HELATtVIZE TUBE NUMBEGS A»D PRESSUGE DODES 

000176 

OOT 

c 

expand fluid lump and tube LUnP PAIRS AND ADD TYPE NUNBER FOB FLUID 

000177 

007 

c 


OOOITS 

QOT 


250 3 = MSP 

000179 

007 


NET = 0 

oooieo 

OOT 


HRl = 0 

000 101 

007 


260 IF (IB<J*21 . ME . 4) GO TO 440 

000102 

007 


NET = MET ♦ 1 

000103 

OOT 


It = 3 

000184 

007 


1C = IQCJ+t) 

000185 

OOT 


270 IFtK .ST. ICl GD TO 440 

000106 

OOT 


L = J * K 

000107 

OOT 


NTUBE = IBtL+l> 

000180 

007 

c 

BELATTVI2E TUBE NUPIBEB AND PRESSURE NODES 

000109 

OOT 


CALL AT0R(4, lOCL+l ),LTB + l ,NTB, 1 SUt 1 

000190 

007 


CALL ATDH(5,IBIL*2».LPn+l,NP ,ISU21 

000191 

□ 07 


call AT0Bt5,iatL*3>,LPB+l,NP ,ISU3> 

000192 

007 


ISU = ISUl ISU2 + ISW3 - 3 

000193 

007 


L = L * 4 

000194 

OOT 


JC =' IB(L 1 

000195 

OOT 

c 


000196 

007 


IFtJC .LT. 2) GO TO 430 

000197 

OOT 


N s 0 

00019S 

QOT 


00 400 1=1, JC, 2 

000199 

007 


n = KSP * M 

000200 

007 


N = H * 3 

000201 

007 


NFL = lABSC IBCL*tl» 

000202 

007 


NFLB = NFL 

000203 

OOT 


CRLL ATOnt 2,HFLR,0,0,TSU1 1 

000204 

OOT 


IOtJI*ll = ISTGNtNFLB.IBCL'^I 11 

000205 

OOT 

c 

LOCATE 7LUID TYPE DATA 

0QO2O6 

007 


NTYP = 0 

000207 

007 


JJ = LTVP 

000208 

007 


KC = IQ(JJ»1I 

000209 

OOT 


KK = 2 

000210 

OOT 


280 IF1KK .GT. KCl GO TO 340 

000211 

OCT 


LL = JJ ♦ KK * n 

000212 

007 


NTVP = NTYP ♦ 1 

000213 

007 


MM = 1 

000214 

007 


LC = IDtLL) 

000215 

007 


290 IFtnn ,CT. LCl GO TO 320 

000216 

007 

c 

CHECK FOR MULTIPLE INPUT IN TYPE DATA 

000217 

007 


TFt lBtLL*fiMI .LT. 01 GO TO 300 

0002IS 

007 


1F( IBCLL+nni .EG. HFL) GO TO 360 

000219 

QOT 


nn = nn * 1 

000220 

007 


GO TO 290 

000221 

007 


300 1ST = -lBfLL*MM> 

000222 

007 


IND = lOtLL+MH*!) 

000223 

OOT 


INC = iotLL+nn*2i 

000224 

007 


DO 310 1 l=IS7,1ND.INC 

000225 

007 


IF t 11 . EQ . KFll 00 TO 360 

000226 

007 


310 CONTINUE 


PtOUS 
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000227 

007 


«rt = (111 + 3 


00022S 

007 


GO TO 240 


000224 

007 


320 KK = KK + LC + .1 • 


000230 

007 


BO TO 280 


0OO231 

007 


390 UniTEl N0UT,3501 NFL 


000212 

007 


350 F0RPlftTt92H0* • • TVPE DATA NOT FOUND 

FOR FLUID LUMP 

000233 

007 


1 7H • * » /) 


000234 

007 


ISU = 1 


000;'35 

007 


HTYP=D 


000236 

007 


360 IBIP1*2> = NTVP 


00023T 

007 


NTL = lABSt IBtL+I+l 1) 


00023B 

007 


CALL ATOn(2,NTLr0,O.ISU2) 


000239 

007 


= lS1GrjtNTL,IB(L>I + ll) 


000240 

007 


ISU = ISU * ISUl + I5U2 - 2 


0002 ' 1 

007 


900 CONTINUE 


000292 

DOT 


IF( ISU .EO. Q ) GO TO 920 


000293 

007 


ERR = .TRUE. 


00029«l 

007 


HRITE(NDUT,9101 NTUBE 


000295 

007 


910 FORMAT! '(!• • • ABOVE MESSAGGCSl REFER TO TUBE'»I6, 

000296 

007 


920 URITEfNFLOUl N, ( IB! K SP+M , S = l ,H 1 


000297 

007 


IA( I. + 1 1 = LOC 


000290 

007 


LUC s tOC * N + 1 


000294 

007 


HHl 2 NRl+l 


000250 

DOT 


930 K = K ♦ JC + 9 


000251 

. 007 


GO TO 270 


000252 

007 


990 J = J + 1B( J+l ) + 1 


000253 

007 


IF! J .LT. KSP ) GO TO 269 


000259 

007 

c 



000255 

007 

c 

RELATIVIZE SPECIFIED PRESSURE NODES 


000256 

007 

c 



00025T 

007 


J=NSP 


000258 

007 


955 IF!IB(J+2i .KE. 2) GO TO 970 


000254 

007 


tSU = 0 


000260 

007 


1C 9 IB! 


0002&1 

007 


K = J * 2 


000262 

007 


IC2=lC/2 


000263 

GOT 


DO 960 1=1, IC2 


000269 

007 


CALL ATORtS.IB! K*1 ),LPH*l ,HP, I SUl » 


000265 

007 


ISU = ISU* ISUl 


000266 

Q07 


960 CONTINUE 


000267 

007 


IF! I5U .EQ. IC2J GO TO 970 


00026B 

007 


UH1TE!N0UT,965 J 


000265 

007 


965 FORMAT (96llO» • • ERROR IN SPECIFIED 

PRESSURE NODES 

000270 

007 


ERR = .TRUE. 


000271 

007 


970 J = J + IB! J + U ♦ I 


000272 

007 


1F!J .LT. KSP) GO TO 955 


000273 

007 

c 



000279 

007 

c 

SQUEEZE BUCKET HEBE IF REQUIRED 


0002T5 

007 

c 



000276 

007 


HET2 = 2»NET 


000277 

007 


LNET = KSP 


000276 

007 


LNAME = LNET + WET 


000275 

007 


KSP = KSP * NET2 


000200 

007 


KNET = 0 


000261 

007 

c 



000202 

007 

c 

LOAD NETUGRK CONNECTIONS DATA 


000263 

007 

c 
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0002GA 

007 



DO 1990 !PASS=l,TIET2 

000285 

oor 


TOO 

J = DSP 

0002B6 

007 


710 

IFUBlJ+21 .EO. 91 GO TO T15 

000287 

dot; 


711 

J = J + IBfJ+l> + 1 

000238 

007 



IFlJ-LNETl 710j 1990,1990 

000288 

007 


71S 

K = 3 

000280 

007 



tC = IBlJ+11 

000291 

007 


720 

IFtK .GT. !C> GO TO 780 

000292 

007 



L = J ♦ K 

000293 

007 



tFtlB<L*9» .HE. 1» GO TO T60 

000299 

007 

c 

SUONETl'IOnK REFEHEMCE 

00C295 

007 



IFlIPASS .LE. HETl GO TO 735 

000296 

007 



WHITE* H0UT.730 J IBl L+5 1, tSCL'>-l), !BtJ+l9» 

0O029T 

007 


7 30 

FCmnAT* 19H0» • • SUBNETWORK A9 , 19H BGFEDENCED TN TUBE 16 

000298 

007 


1 

1 26H OF NETWORK OR SUBNETWORK A9, TH * * « /) 

OQ0299 

007 



GO TO 760 

000300 

007 


735 

IRKNET ,UT- 1 » GO TO Til 

000301 

007 



rjAHE = IB*L*51 

000302 

007 



on 790 I=1,KHET 

000303 

007 



IF* IQILNANE+I ) .NE. NAHE > GO TO 790 

000309 

007 



IB*L+91 = -1 

000305 

007 



lBCt*S > = 181 LHET+I 1 

000306 

007 



GO TO 760 

000307 

007 


790 

CONTINUE 

000303 

DOT 



GO TO 711 

000309 

007 


760 

K = K * lABSt IB*L*9 11 * 9 

000310 

007 



GO TO 720 

000311 

007 

c 

VALVE LOCATIOKS 

000312 

007 


780 

NNV = 0 

000313 

007 



LOCMV = 0 

000319 

007 



IFlNVLV .LT. 11 Go TO 990 

000315 

007 



JJ = .liSP 

000316 

007 


800 

IFlIBtJJ+ai .NE. 51 GO TO 920 

000317 

oor 



JC = tBIJJ*ll 

000318 

007 



KK = 2 

000319 

007 


820 

IFtKK .GT. JCl GO TO 920 

000320 

007 



IL = JJ ♦ KK 

000321 

007 



K = 3 

000322 

007 

■ 

890 

1F*K .GT. ICl GO TO 900 

000323 

007 



L = J * K 

000329 

007 

c 


HTSl 

000325 

007 



1F*IBCLL*91 .EO. ia*L«11> GO TO 660 

000326 

007 

c 


HTS2 

000327 

oor 



tFel6*LL*5l .NE. TB*L*Ill GO TQ 880 

000328 

oor 


860 

NNV == NNV « 1 

000329 

007 



IFtNNV .EO. 11 NNV - 2 

000330 

007 



1B(KSP+NNV1 = I8(LL+21 

000331 

007 



GO TO 900 

000332 

, 007 


880 

K = K ♦ IflBSI fB*L+911 ♦ 9 

000333 

007 



GO TO 890 

000339 

007 


900 

KK = KK * IBCLL+l 1 ♦ 1 

000335 

007 



GO TO J20 

000336 

OOT 


920 

JJ = JJ * 18* JJ*l 1 * 1 

000337 

oor 



IP *JJ . LT . KSPl GO TO 600 

000338 

oor 


930 

IFtNNV .LT. 11 GO TO 990 

000339 

oor 



IB* KSP+I 1 = NIJV - 1 

000390 

oor 



LOCNU = LOC 



1 

V 
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00D3<)1 

OOT 

C SPECIFIED PPESSURES 


0003*12 

007 

990 

HSPH = 0 


0003*)3 

OOT 


LOCSPH =i 0 


0003'tt 

OOT 


JJ = MSP 


0003HS 

007 

960 

IF< !B( JJ+21 .HE. 2J GO TO 

1080 

0003*16 

007 


JC = IBCJJ-*^!) 


0003«)T 

OOT 


KK = 3 


Q003*)S 

OOT 

900 

IF<KK .GT. JC) GO TO 1080 


0003*19 

oor 


LL = JJ ♦ KK 


000360 

OCT 


K = 3 


000351 

OOT 

1000 

1F(K .GT. IC) GD TO 1060 


000352 

007 


U = J + K 


00Q3S3 

007 


lF(tBtL+2) .EO. IBCUD) GO 

TO 1020 

000355 

007 


IFf |B(L-»3) .NE. IB(LD) GO 

TO 1090 

000355 

007 

1020 

HSPR = NSPB 1 


000356 

007 


IFlNSPn .EO. i J NSPR a 2 


0003ST 

OOT 


IB( KSP»NfJV+HSPR ) = IB(UL) 


000358 

OOT 


GO TO 1060 


000359 

007 

1090 

K = K + IfiBS( IBt L*9 )) + 9 


000360 

007 


GO TO 1000 


000361 

007 

1060 

KK - KK ♦ lB(tL+l ) 9 1 


000362 

OOT 


GO TO 980 


000363 

007 

toso 

JJ = JJ + IB( JJ*l ) + 1 


000369 

OOT 


1FUJ .LT. K5P) GO TO 960 


000365 

OOT 


|F(N5PB .LT. 2) GO TO UOO 


000366 

007 


LOCSPR = LOG + NNV 


00036T 

OOT 


IBi KSP*NHV*-l 1 = NSPB - 1 


000368 

OOT 

C LOAD HETUC-"* FOB SORT 


000369 

OOT 

1100 

LQCNET = <• HHV + NSPB 


000370 

007 


IB<L0CNET*2. =* IBlJ+3) 


000371 

007 


1BCL0CNET»3) = LOCSPB 


000372 

007 


1B<LGC«ET»*’ ) = LOCMV 


000373 

007 


K = 3 


0O03T9 

007 


HN = LOCNET * 9 


000375 

007 

1120 

1F< K .GT. IC) GO TO 1190 


000376 

007 


L n J * K 


02)0377 

007 


1B(NH*I ) = IB(L+l 1 


000378 

DOT 


1B1HN*2) = IB{L*2) 


000379 ■ 

OOT 


1B(NN«3) = IBtL+3) 


000380 

OOT 


IB(NN+91 = ISIGNC 1BIL«5),TB<L99)) 

000381 

007 


IFl1BCL«91 .EQ. 0) IBINN*9)=0 

000382 

007 


NN = NH + 9 


000383 

OOT 


It t K ♦ IBBSt IBt L*9 n * 9 


00038*1 

007 


CO TO H20 


000385 

007 

1190 

NHET = NH - LQCfiET - 1 


000386 

007 


IBtLOCNET+n = NNET 


000387 

007 

C SORT NETUQBK 


000388 

007 


NTBCHK = NNET/9-1 


000389 

007 


1 Ft MT0 CHK.lt. n GO TO 1900 


000390 

007 


MPl = NTBCHK+I 


000391 

007 


NMl = NTBCHK-1 


000392 

007 


NN = LOCNET + 9 


000393 

007 


DO 1260 1=1. NTBCHK 


00039't 

007 


00 1290 NPflSS = I.HPl 


000395 

007 


HFBI4 = IBt NI<M-2 I 


000396 

007 


nn =t NN + <1 


000397 

007 


DO 7180 K=1, NTBCHK 



to 

j 

H 

H 

H 




FLQtl2 



000398 

007 


000399 

007 


OOOHOO 

007 

iteo 

000901 

007 


000902 

007' 


000903 

OOT 


00 09 09 

DOT 


0009 05 

007 


000906 

OOT 


0009QT 

007 


000908 

OOT 


OQ0909 

007 


000910 

007 


000911 

OOT 

1185 

000912 

007 


000913 

007 

1190 

0009 19 

OOT 

1195 

000915 

007 


000910 

007 

1200 

0Q091T 

OOT 


B®0918 

007 


0009 1 9 

007 


000920 

007 

1220 

000921 

007 

1290 

000922 

007 

1 

000923 

007 

1250 

0009 29 

007 

m 

0009 25 

OOT 


000926 

OOT 

1260 

000927 

007 

1900 1 

000928 

007 

1 

000929 

007 ■ 


000930 

007 


000931 

007 

1 

000932 

007 


000933 

007 


0009 39 

007 

1990 1 

000935 

007 

C 

000936 

007 

C RELA 

000937 

OOT 

C 

0009 33 

007 

! 

000939 

007 


000990 

007 


000991 

007 


0QC992 

007 

1 

000993 

007 


000999 

OOT 

1995 1 

000995 

007 

1950 

000996 

007 


000997 

007 

1 

000998 

007 

1960 

000999 

007 

1 

000950 

007 


000951 

OOT 

1 

000952 

OOT 


000953 

OOT 


000959 

OOT 



/ 


IF (IBtnn+3J .EQ. 
nn = «n + *» 


NFRM) GO TO 1200 


NH = NN + <» 

lfH.GT.Nntl GO TO 1260 

N 1 = NN 

N2 = m*H 

00 1105 K = I,Hni 

IF( TB(N 2 + 2 ),NE.NFRW 1 GO TO 1190 

DO lias n = 1,0 

KEEP = lB(Nl+fl) 


IBtNl+ni : 
IBtN2+M) = 
COMTINUE 
fJl s N1*0 


IBlna*n) 

KEEP 


GO TO 1269 
DO 1220 K=J,‘S 
KEEP = JBinn-'Sv 
iBtnn*Ki = i8(K«vki 
IB(NfJ+K» = keep 


wniTEC NOUT, 1250 J 

FOBfIfiTtS'fHO* * • SORTING TUBE CONNECTIONS FOR NETWORK 

A*), TH » * »/ ax,25HCHE^ PARALLEL FLOW PATHS/) 

ERR = .TRUE. 

CONTINUE 

NLOCS = NNV ♦ HSPR + I0tlOC'NXT+n * 1 
URtTEtNFLOW J NLOCS, UB( KSP+fo» 1 = 1 , NLOCS 1 
KNET = KNET + 1 'X 

IBILNET+KNET) = LOC * NHW * NS^V 
LOC - LOC * NLOCS 
IB{LNAnE*KNET) = IBCJ+31 
IBtJ+2) = -IB( J+21 


LIFR = KSP 
KSP = KSP ♦ NP 
J = HSP 
JC = 0 

00 1H*(5 1 = 1, NP 
1B( LIFRU 1 = 0 


!C = I0(J+1> 

K = 3 

IFIK .GT. IC) GO TO INTO 
L = J ♦ K 
JC = !B(L> 

CRLL ATOfltS. )BtL*l ),LPR+1 ,NP , ISUl 1 
1SU2 = 1 

IF(JC .NE. 2) GO TO INTO 

IFI lABSt ID( L-»2)1 .LT. HAXI 1 GO TO IN65 
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000455 

007 


NPl = IB<L*1) 

000456 

007 


IBCLIFB+NPI) = IB(L-62) 

000457 

007 


GO TO 1466 

0004SS 

007 

1465 

CALL ATaRCt,I6<L'v2)«0,0,ISU21 

000454 

007 

1466 

ISU =? ISUl + ISU2 - 2 

000460 

007 


GO TO 1480 

000461 

007 

1470 

CALL AT0H(5,IBC L+Z l.LPB+l,NP, 1SU2) 

000462 

007 


ISU = ISUl + ISUZ - 2 

000463 

DOT 


HP I =IB(L+1 1 

000464 

007 


MPO= iacL+21 

000465 

007 


IF (JC .NE. 3) GO TO 1475 

000466 

007 


CALL ATOR( l,IB<L+3),a,0,ISU31 

000467 

007 


ISU = ISU + ISU3 - 1 

00046B 

010 


LAHRAV = LLOCnS) ♦ [B(L*3) - 1 

000469 

Oil 


ICA = (< IBCLARRAV W21/4 )*2 +t • 

000470 

007 


IBILIFR+NPI) = IB(LAHRRV<-ICA 1 

000471 

007 


1B( LIFR*HP0 t = ~IB(LBRHAV*ICAl 

000472 

007 


GO TO 1480 

000473 

007 

1475 

IBCLIFH-vNPH = IBCL«3» 

000474 

007 


IB(LIFR*NP01 =-10tL+3) 

000475 

007 

1480 

IF(ISU .HE. ?') ERR = .TRUE. 

000476 

007 

1485 

K = K + JC * 1 

000477 

007 


GO TO 1460 

000478 

007 

1490 

J = J ♦ 1ABS( IB( J + l )> + 1 

000479 

007 


IF(J .LT. LHETl CO TO 1460 

0O04B0 

007 

c 


000481 

007 

C COnPLETE SVSTEPI PAnfltlETEHS AND FLOU SOURCE DATA 

000482 

007 

C 


000483 

007 


J = MSP 

00 04 S 4 

007 


N s 0 

000485 

007 

1500 

rPt!BtJ+2> .NE. IJ GO TO 1760 

000486 

007 


L = J *■ 2 

000487 

007 


MADE = IB<L*12) 

0004SS 

007 


ISU = 0 

000489 

007 


00 1520 1=1,4 

0004 90 

007 


ISUl = 1 

000491 

007 


IFtlBlL+I) .LT. HAXI) CALL ATORf 1 , I8t L-^Il, 0, 0, 1 SUIl 

000492 

007 


ISU = ISU * ISUl 

000493 

007 

1520 

COMTIHUE 

000494 

007 


ISUl = 1 

000495 

007 


IFtIB(L*131 .LT. MAXn CALL ATORt 1, TBt L+13 1,0, 0, ISUl > 

000496 

007 


ISU = ISU ♦ ISUl 

000497 

007 


IFt ISM .EO. 5 > GO TO 1550 

0004 98 

007 


URITEC MQUT, 1530 ) MAnE 

000499 

007 

1538 

FORPIATC'O* * • ABOVE MESSACEC S ) REFER TO NETUOHK ' , A4 ,TH 

0OQ5OO 

007 


ERR = .TRUE. 

000501 

007 

C LOCATE (JETWOHK CONNECT I8HS DATA FOP THIS SVSTEII 

000502 

007 

1550 

no 1570 I=t,KNET 

000503 

007 


IF[ IBILMAME*!) .ED. NAflE > GO TO 1580 

0005 04 

007 

1570 

CONTINUE 

0005 05 

007 


URITE«N0UT,15T5 ) NAHE 

C005Q6 

007 

1575 

FORPIATC 4 2HD. • • NETUDRK DATA NOT FOUND FOB SVSTEn A4,TM 

000507 

007 


ERR = .TRUE. 

000508 

007 


GO TO 15 85 

000509 

007 

1580 

IB<L»I2) = IB<LNET*| > 

000510 

007 

C FLOU SOURCE DnTA FOR THIS NETUQRK 

OOOStI 

007 

1585 

LOCP = 0 






H 

H 

W 



FLQU2 



ooa?t2 

OOT 

injc .EO, 01 GO TD 1750 

000512 

007 

JJ = J + + 1 • 

000515 

oor 

JJ = JJ + lBtJJ+1) ♦ 1 

D00515 

007 

IFl IftBSt IBC JJ+21) .NE. 51 GO TO : 

0005 U 

OOT 

KC ■= IBt JJ+I 1 

000517 

OOT 

IFCKC .LT, 21 GO TO 1750 

000510 

007 

JJJ = HSP 

000519 

007 

1600 1FfTBIJJJ+2) .NE. 3) GO TO 1680 

OOOSZO 

OOT 

KKK = 2 

000521 

007 

Lt = jB( JJJ+1 1 

00O522 

OOT 

1620 IFtKKK .GT. LG 1 GO TO 1680 

000523 

007 

LLL = JJJ + KKX 

000525 

OOT 

HC = I8f LLL+1 3 

000525 

OOT 

IF ( lABSt IBf LLL-i-Sn . GT . HAXl > 

000526 

OOT 

1635 HPl = I0{LLU*21 

000527 

OOT 

KK = 3 

0OO’'28 

OOT 

1650 IF(KK .GT. KC) GO TO 1670 

000529 

007 

LL - JJ * KK 

0005 30 

OOT 

lFCIB(l,t.*21 -GO. NPI) GO TO 1700 

0005 31 

007 

IF(IBtLt.*31 .EO. NPI) GO TO 1700 

0005 32 

oor 

KK = KK + tOBSf IBI LL-»5 n + 5 

0005 33 

007 

GO TO 1650 

0005 35 

007 

1670 KKK = KKK « nC « 1 

0005 35 

007 

GO TO 1620 

0005 36 

007 

1680 JJJ = JJJ * IBCJJjVn 1. 1 

0005 37 

007 

IF<JJJ .LT. LNETl GO TO 1600 

0005 38 

007 

GO TO J750 

000539 

007 

1700 LOCP = LOC + N 

000550 

OOT 

UL = KSP + N ♦ 1 

00055I 

OOT 

LLL = LLL ♦ I 

000552 

OCT 

N “ H V rtC + 1 

000553 

OOT 

IDILLI = nc 

000555 

OOT 

DO 1720 t5l»nC 

000555 

OOT 

IB( LI,*1 ) = I8( LLL+T ) 

0QO556 

OOT 

1720 CONTINUE 

000557 

007 

1750 IBlL+1 1 1 = LOOP 

000558 

■ 007 

1760 J = J * IBt j*n * 1 

000559 

007 

1F(J .LT. LNET) GO TO tSOO 

000550 

007 

N02 c 0 

000551 

007 

TF (M .EO. 0) GO TO 1770 

000552 

007 

WHITE INFLOW) N,( IBI KSP-»t ).I-1>N 

000553 

OOT 

NR2 = HR2*t 

000555 

007 

LOC s LOC+N 

000555 

OOT 

1T70 HFO = LOC 

000556 

007 

H = 0 

000557 

007 

C 

OO0558 

oor 

C COLLECT SVSTED PRHRnETEHS 

000559 

OOT 

C 

000560 

OOT 

J = NSP 

000561 

007 

1000 'r(IB(J*2) .NE. J) GO TO 1850 

000562 

007 

1 = J + 2 

O00S63 

OOT 

LL = K3P ♦ N 

000565 

007 

N = « * 15 

000565 

007 

00 1820 1=1,15 

000566 

OOT 

tniLL + l ) = IBI L*n 

000567 

OOT 

1820 continue 

000568 

007 

1B50 J = J * IBI J + 1 ) I- 1 


/ 
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0t7 


1 F{J ,LT. LNET) GQ TO 1800 

aooSIi) 

OQT 


MBITE(NFLOW) N,1 TBt K SP+I ), 1=1 ,N1 

0005*1 

OOT 

c 


OQOirs 

007 


MRITECHFLQUl NP, (IBIUIFR*!), 1=1, KPl 

000573 

007 


00 1B92 1=1, NP 

OOOST-f 

007 


IQ<UIFfi + I >=0 

OE'iS'fl 

007 

1892 

continue 

ai'OSTt 

007 


J=NSP 

OOi.57 7 

Oo7 

1895 

!F(iLi*J*2l .NE. 2l GO TO 1899 

OaOSF!) 

907 


IC - 1B< J+l ) 

300579 

007 


!« = J *2 

000500 

OOT 


PD 1897 1=1, IC, 2 

000531 

007 


NSPR=tB( K*t 1 

000582 

007 


1BILI?B*NSPH J=IBtK+t*l 1 

000533 

OOT 

1397 

CONTINUE 

000530 

OOT 

1899 

J= J+IB( J+I ) +1 

QQ0SS5 

OOT 


IFU .LE. LNETl GO TO 1895 

000536 

OOT 


uniTElRFLOUl HP,t 1B(UFB+I ),I = 1,NP 1 

000587 

007 

Z 


000503 

007 


IF (NW .GT. 01 WRITE UJFLDUt NV ,( I BC LVX9-T), t = 

000589 

OOT 

Z 


000590 

OOT 


UBITEfLOTll < IB{LTB*n,l = l,NTB) 

000591 

007 


WRITElLim ) ( IBILPR+I ),l = l,NP 1 

000592 

OOT 


IFtNV .GT, OJ URlTEtLUTll t I3t LV*t 1, 1 = 1 ,NV ) 

000593 

007 


MHITEt LB3D1 NTVPE ,NSVS,NTB,NP ,NV ,NFD 

000599 

007 


rewind nflou 

000595 

007 


LTVP = UTB 

000596 

OOT 


N = 0 

000597 

OOT 


L = LTVP 

OOD59S 

OOT 


IFt NTVPE ,LT. 1) GO TO 1870 

000599 ■ 

OOT 


DO 1360 J = l, NTVPE 

000600 

007 


READINFLOU) ( IB( L«I1 , I = 1 , 1 0 1 

000601 

00 7 


L = L ♦ 10 

000602 

00 r 

1860 

CONTINUE 

000603 

007 

1870 

LFLD = L 

000609 

OOT 


IRNW AT. 1 ) GO TO 1900 

000605 

OOT 


DO 1880 J=1,NU 

000606 

007 


READtNFLQW) N. ( IBt t-»t*l 1. t = t.N> 

000607 

OOT 


JBIL+n = H 

000603 

007 


L = L ♦ K + 1 

000609 

007 

1830 

CONTINUE 

000610 

OOT 

1900 

IFtNRl .LT. 1 1 GO TO 1990 

000611 

OOT 


DO 1920 J=l,NRl 

000612 

007 


fiEROeMFLOWl N, ( tBI L-t-I 1, t = 1 ,N1 

000613 

007 


IBt L+1 1 = N 

000619 

OOT 


U = L + K * 1 

000615 

007 

1920 

CONTINUE 

000616 

OOT 

lO'O 

DO 1*60 J=l,NET 

000617 

007 


.•'EAOI NFLOU 1 H, ( ID< L«-| 1 . I=t,N ) 

000618 

007 


L L ♦ N 

0006 19 

007 

1960 

CONTINUE 

000620 

OOT 


IF! m2 .LT. 1 IGO TO 2000 

000621 

007 


READINFLDUI N, ( IBI L->-I I, 1 = 1 >N 1 

000622 

007 


L = L + N 

000623 

007 

2000 

URITEtLOSDl < 1B(LFL0*n,1=l,NFDl 

000629 

OOT 


L=LFLU 

000625 

OOT 


READINFLOU) «, ( IBt L*t ), T=I,N ) 


l.NV) 


FLDU2 


SATE 022875 


r«GE 


/ 

/• 


00062& 

007 


unnEtLisDi tiBCL+i>,i=i,m 

000627 

007 


LIFB=L 

00062B 

OOF 


BEAD(NPLQU) K, t IOC L+I ), 

000629 

007 


1, = U + N 

000630 

007 


LPB=L 

000631 

007 


BEADCNFLOW) N,f ion.-tn,iai,H7 

•‘0632 ■ 

007 


tsL-FN 

000633 ■ 

007 


LV3 = L 

000639 

007 


N = D 

000635 

007 


IFCNV .GT. 01 REnOCNPLOU) H, 1 IOC L-H ), lal.N 5 

000636 

007 


L = L N 

000637 

007 


BEUtND NFLOU 

000638 

007 

C 


000639 

COT 


N = [.FLO - LTVP 

000690 

007 


UHITeCLB3D> C IflC LTVP + I ) , 1 = 1, H 1 

000691 

007 


X = 200,!^ 

000692 

007 


UBITECUMl (X,I = l,NTB) 

00'069 3 

007 


IFlNV .GTI 01 URITetLB301 ( IBC LVX9-n, I=1,NV 1 

000699 

007 


IF(EBR) EB0ATfl=2.0 

000695 

007 


UBITECLB30) C IOC UPBt-tl, 1=1 ,NP 1 

00069-5 

007 


«RITEfUB3Dl 1 IBCLIFB+I l,t = t,»Pl 

000697 

007 

• C 

* 

000698 

007 


RETURN 

000699 
END EtT. 

007 


END 


•ttOGfP FLPBNt 


O O 
Ti CD 

si 




OF POOR QPAl4l!K 


FtPBHT 


DAVE 02ZB75 


PAGE 


f 

/ 


/ 


«ELT,L FtPRNT 

ELIOTT BLI8T0 OZ/20-O3:19t»l*l-C 0, > 


COOOOl 

000 



SUBBOUTiNE FLPnNTC DATA, HEAD) 

000002 

OOQ 

c 



000003 

000 



OinENSIDN DATACU, HEA0(9) 

oooooo 

OOO 

c 



'ooooos 

000 



connoN /mcorj/ lc n 

000006 

000 

c 



OQ0007 

000 



EOUIVALEHCE INNT.O) 

000008 

000 

c 



000009 

000 

c 



000010 

OOO 



D = DATAt 1) 

ooooit 

000 



TFCU29J .EO. 0 .08. H20» .GE. 60) CALL TOPLIN 

000012 

000 



WB1TE16,I01 ) HEAD 

000013 

OOO 



Lt20) = L(28) * 2 

000019 

OOO 



NS = 1 

OOODI5 

000 



MF = 10 

000016 

OOO 


5 

IF<NF .GT. NNT) GO TO 20 

OOOOIT 

OOO 


1C 

URITEe6,100) CDATAl t + ) ).t=NS,NF>, HF 

OQOOIB 

000 



Ut20) = LI 20) + 1 

000019 

OOO 



tFCL(2S) .GE. 601 CALL TOPLIN 

000020 ' 

000 



!F(NF .EO. KNT) RETUPN 

000021 

OOO 



NS = NF ♦ 1 

000022 

000 



NF = NF -* 10 

000023 

OOO 



GO VD 5 

000029 

000 


20 

UniTE(6,100) IDATAI 1+1) , I=N5t NNT ) 

000026 

OOO 



ifil(2Bi .GE. 601 Cal;, tqplin 

000026 

OOO 



BETunn 

000027 

OOO 


100 

FOBtlATl U 5GI2.5, 5X 5G12.S, 15 1 

000026 

000 


101 

FORnATClHO 2U6, A5 ) 

000029 

OOO 



END 


EHO ELT. 


,P FLTVP 


FI.TVP 


/ 


BATE 0Z28T5 



DOOOOI 

000 



SUBROUTINE FLTVPl TVPBllT, J5U ) 



000002 

000 

c 





000003 

000 



BinENSION TVPDATl 1 1 



aaooo>i 

000 

c 





000005 

000 



COnnON /TAPE / WIN, HOUT 



oooooo 

OOQ 



ConnON /CARO / KRD, KOL, nKXOL 



000007 

000 



CanmON /CIMAGE/ KARDteOl 



000000 

000 

c 





000009 

000 


15 

TVP0AT(6) =0.0 


* 

000010 

000 



TVPOATI T) = 1.0 



00001 1 

000 



TVPOAttCJ = 1.0 



000012 

000 



TVP0AT(9) = 1.0 



000013 

000 

c 





000019 

000 


25 

DO 200 1=1,9 



OOOOIS 

000 



CALL SKPBlJStill 



000016 

000 



GO TOC 60,2201, J5U 



000017 

000 


60 

K = KOL 



OOOOlfi 

000 



GO TOCIIO, 1 10, 110, 110, 90, 90, 110, 70,801. t 



000019 

000 

c 

FI 




000020 

000 


70 

CALL SUBNCTVPOATC I l.lSU) 


1 » 

000021 

000 



Jtsu = 1 


a 

t 

000022 

000 



GO 70( 195,75,150,160.250), ISU 


1 

w 

000023 

ooo 


75 

KSU = 2 


f-* 

000029 

000 



GO TO X95 



00002S 

ooo 

c 

F2 




000026 

000 


so 

GO TOI es.iiDi, KSU 



000027 

ooo 


as 

TFCKARDCKOLl .EO. 1KA) GO TO 95 



OQ002B 

ooo 



HRtTE(N0UT,87) 



00OO29 

ooo 


87 

FORnAT(36HO» • • ARRAY INPUT NOT FOUND ■ 

« 1 

p o 

000030 

000 



GO TO 160 


000031 

ooo 


90 

IFCKARDCKOL) ,NE. IHAl GO TO 110 



000032 

ooo 


-95 

KOL = KOL * 1 



000033 

000 



CALL SUBNC TVPOATI 1 1,1 SU) 


a ^ 

000039 

000 



GO TOC 195,96,150, 160,2501. I SU 


Q § 

000035 

OOQ 


96 

uniTECNOUT, 1001 K 



000036 

ooo 


100 

F0RflRT(6,2M0* • * FLOATING POINT NUJ13ER INPUT 

000027 

OOO 


ICOLUnN 13, 7H • * ♦ /I 



000038 

000 



GO TO 160 


000034 

000 

c 

HEAL NUtlBEOS 



000090 

000 


no 

CALL SUBNC TYPOATt 1 1,1 SU) 


te P 

000091 

ooo 



IFI .MOT. ABSt TVPBATtl 1 1 ,GT. 0.01 GO TO 195 

c 

000092 

ooo 



GO 70( 115,195,150,160,250), (SU 



000093 

ooo 


115 

URITECHOUT, 120 ) B 


t3 ^^0 

00009 9 

ooo 


120 

FORNATC 3IW0* • • integer INPUT IN COLUMN 

13 

Jr^ w* 

000 09S 

ooo 



1 number EXPECTED • » • /) 



000096 

ooo 


150 

URITECNOUT.ISS 1 



000097 

ooo 


155 

F0RMATC9TH0* • * END FOUND UITHIN FLUID TVpE 


000098 . 

000 


160 

CALL SKPTEIJSUl 



000099 

ooo 



GO TOC 15,2201, JSU 



000050 

ooo 


195 

KEEP = KARDCKOL) 



000051 

ooo 



KOL - KOL * 1 



000052 

ooo 



IFCKEEP .NE. IH=) GO TO 200 



000053 

ooo 



IFt 1 .GT. 9 1 GO TO 210 



000099 

ooo 



UR|T£(»0UT,196 1 



000055 

000 


196 

FORMATC 60110* • * AT LEAST FIVE ITEC1S MUST 

BE 


• » • / 1 


PAGE 


U-118 


FLTVP 


/ 

/ 


DATE OZaSTfS 


000056 

000 

1 

1 DATA • 6 w/1 

000057 

000 


GO TO 160 

oooose 

000 

zoo 

COMTINUE 

000059 

000 , 

ZlO 

TVPOftTtlOl = TVP0ATIZ)*TypDATt3)/t*I.0*TVPDAT(ll) 

O0QO60 

000 

2Z0 

RETURN 

000061 

000 

Z50 

JSU = 2 

OOOO&Z 

000 

. 

RETURN 

000063 

000 


END 


EHD ELT. 


«HDQ,P FLUID 


PAGE 


D-119 


FLUTT) 


/ 


DATE 0E2a75 


*ELT,1. FLUID 

eUTQTT HLIB70 0Z/Z8-03» I9t'»7-I Z, > 


OOOQOl 

OOZ 


SUBROUTINE FLUID! ICQDEj LL{)Cl,l.LO?Z,ZERO<KOP 1 

oooooz 

000 

c 


000003 

000 


LOGICAL LCP, LROi LMU, LKT^ COP, ERR 

000009 

000 

c 


000005 

000 


connoN /FlxqoN/ Korun 

000005 

000 


COnnON TTEUP / T (1> 

ooooor 

000 


COfinON /FLOOAT/ NFLQW tl) 

000009 

000 


COnnON /TVPDAT/ TVPE CIO,!) 

OO0009 

000 


COfinOM /SVSDAT/ NSVSTfUlS,!) 

000010 

000 


COnnON /FOATA / COP, LCP, NCP, HCP. LRQ, NRQ, RBO 

OOOOIt 

ono 


COnnON /FBATA / NH , LflU, Nnu, PMU, LKT, HXT, RKT 

OOOOlZ 

OOZ 


COtinGN /FDATA / KOBE, HLOCl. HLOCZ. TZERO 

000013 

000 


connou /PCINTN/ LtlOOE, LCQND, LCDNS, LARRAV, ICQFIP 

OOCOll 

000 


connoH /FDififis/ htvpe.nsvs 

000015 

000 

c 


000015 

000 


DATA HOUT / 6 / 

OOOOIT 

000 

c 


000018 

ooo 


KODE = ICOOE 

000019 

000 


NLOCl = LLOCI 

oooozo 

000 


HLOCZ = LLOCZ 

oooozi 

OOZ 


TZERO = ZERO 

00002Z 

000 


SKUl = 0 

0000Z3 

000 


STUl - G 

000029 

OOO 


KPl = 0 

000025 

OOO 

c 


0000Z6 

OOO 

c 

SVSTEfl LOOP 

OOOOZ7 

OOO 

c 


OOOOZO 

ooo 


DO 9000 l=l,NSV5 

000029 

OOO 


CALL FLOPCHH ,LCP,RCP, 13, I t 

000030 

ooo 


CALL FLOP! NCP,LCP,RCP, l,I 1 

000031 

OOO 


CALL FLOP<NRO,LRO,RRO.Z,n 

00003Z 

ooo 


CALL FLDPC Hnu,LnU,RtnU.3,I ) 

000033 

DOQ 


CALL FLOPC HST.LKT.HKT.I.l ) 

000031 

000 

c 

SETUP FLOW PROPERTIES 

000035 

ooo 


COP = .false. 

000036 

ooo 


IF INSVSTmiO,! t .EO. 0 .AND. KOP .ED. 0) CO TO 50 

00003T 

000 


COP = .TRUE. 

000039 

ooo 


IF ILNDOE .EQ. 0 1 CALL NNREADC 1 1 

000039 

ooo 


IF ILTB .EO. 0) CALL HNHEADCSl 

000010 

ooo 


KONI ZB) = too 

OO001I 

000 


50 LOCI = HSYSmt IZ, I ) 

OOOOlZ 

ooo 


ICI = HFLDUtLOCI ) 

000013 

ooo 

c 


000011 

ooo 

c 

NETUORK LOOP 

000015 

ooo 

c 


000016 

ooo 


DO 9500 Jt-1.)Cl,1 

OOOOIT 

DOO 


LOCO = r<FLomu)Ci+Ji*3> 

000019 

ooo 


IF(LOCD) 100,9500,5100 

000019 

ooo 


100 KPZ = KPl 

000050 

ooo 


SHUZ = SKUl 

000051 

ooo 


S.TU2 = STUl 

00005Z 

ooo 


LOCZ = -LOCO 

000053 

000 


ICZ s NFLOU(LDCZ) 

000051 

ooo 

c 

• 

000055 

ooo 

€ 

SUBNETWORK LOOP 


LPR 


PAGE 


osT-cr 


■ Lc 


FLUID 

000056 

ooa 

c 

00005T 

000 

no 5000 J2=9,1C2,9 

000058 

000 

LOCO = NFLOUtLOrl+J2*3) 

000059 

000, 

EFtLOCO) 200,5000,2150 

000060 

000 

200 KP3 = KP2 

000061 

000 

SHU3 = SHU2 

000062 

000 

STU3. = 5702 

000063 

000 

L0C3 = -LOCO 

000069 

000 

tC3 = NFLOU(LOC3) 

000065 

000 

c 

O00O66 

ooo 

C SUBNETUOnX LOOP 

00006T 

000 

c 

000068 

090 

00 2100 J3=9,IC3,9 

000069 

DOO 

LOCO = NFUOm L0C3+J3+3) 

000070 

000 

IRLOCD) 300,2100,900 

00007) 

000 

300 WRITE! 0007,3201 WFLOWt L0C3+1 ) 

000072 

000 

320 FCRnntC 19t<0* * • SUBNEtUQRK 

000073 

000 

IK 9 • ¥ / ) 

000079 

000 

ERR a .TROE. 

000075 

ooo 

GO TO 2100 

000076 

QOO 

900 ASSIGN 600 TO XX 

000077 

090 

(1TB = NFL0U<L0C3¥J3J 

000078 

ooo 

MFRn = NFL0U1L0C3+J3*! ) 

000079 

ooo 

IC = NFLOUtLOCOl 

000080 

ooo 

X = 0.0 

00908) 

ooo 

C 

000082 

ooo 

C TUBE LOOP 

000083 

ooo 

C 

000089 

ooo 

DO 2000 K=l,tC,3 

000085 

ooo 

L = LOCO ¥ K 

00DO86 

ooo 

Lnp = lABStNFLQUtLn 

000087 

ooo 

NTVP = NFLOW(L+n 

OOQOas 

ooo 

NTBLPIP = NFL0U(L*2J 

000089 

DOO 

X = X ♦ TVPG(3,NTVP) 

000090 

ooo 

EFtNTOLMP) (950, 1950, XX 

00009) 

ooo 

500 HU s TPOLtS.TOJ 

000092 

000 

GO TO 1900 

000093 

ooo 

600 IFCNFRn .EQ. KP3 1 GO TO 1800 

000099 

ooo 

sum =0.0 

00009S 

ooo 

S0I12 = 0.0 

000096 

ooo 

CALL UPSUn3(NFnn,L0C),Jl.L0C2 

000097 

DOO 

SHU 3 = SUn)/SUft2 

000098 

000 

CALL nP0L(NH,SHU3,STU3) 

00 0099 

ooo 

KP3 = NFRU 

000)00 

000 

1800 HU = SHU3 

900)01 

ooo 

TU = STU3 

000)02 

ooo 

1900 CALL Tr(PEO!NTB,L,TvPEl 1,NT¥P ( 

900103 

ooo 

1950 TU = TCLHP1 

000109 

ooo 

ASSIGN 500 TO XX 

000)05 

ooo 

2000 CONTINUE 

000)06 

ooo 

C 

000)07 

000 

2)00 CONTINUE 

000)08 

ooo 

C 

000)09 

ooo 

GO TO 5000 

000)10 

ooo 

C 

oooni 

ooo 

2)50 assign 2300 TO VY 

000)12 

090 

NTO = NFL0U(L0C2¥J2) 


DATE DZaaTS 


FLUID 


/ 


DATE ozzars 



000113 

000 


HFHM = «FLOW(LOC2*J2*I1 


QOOIIH 

000 


IC 3 nflouilocdi 


OOOUS 

000 


X - 0.0 


OOOllfr 

000 




OBOllT 

000 

C TUBE LOOP 


OOOllS 

000 

c 



□00119 

ooo 


DO 9500 K=1,IC,3 


000130 

000 


L = LOCO 4 X 


000131 

000 


LttP = lABStNFLQUtLll 


000123 

000 


KTVP = NFLOmU+1) 


000133 

000 


NTOLtiP = NFL0UtL+2» 


000139 

000 


X = X + TVPEt 3,NTVP1 


000135 

ooo 


IFlMTOLflPJ 9900, 9900, VV 


000130 

000 

3300 

HU = TPQL(5,TU) 


000127 

-OOO 


GO TO 9300 


000120 

ooo 

3300 

IFUlPnh .EO. KP3) Go TO 9300 


0CQ139 

000 


sum a 0.0 


000130 

ooo 


sons = 0.0 


oooni 

ooo 


CALL UPSun3tNF0n,LDCl, Jt,LQC3 


000132 

ooo 


SHU2 = 5Um/SUfl2 


000133 

ooo 


CALL RP0L(NH,SHU3,STU3) 

t) 

1 

□00139 

ooo 


KP3 = MFOn 

000135 

ooo 

9300 

HU a SHU3 

H 

000136 

ooo 


TO = STU3 

to 

000137 

ooo 

9300 

CALL TnPEQ(NTB,L,TVPE( t.NTVP 1 

H 

000139 

ooo 

9900 

TU a T1 L«P 1 


000139 

000 


ASSIGN 3300 TO YV 


000190 

ooo 

9500 

CONTINUE 


000191 

ooo 

c 



000193 

ooo 

5000 

CONTINUE 


000193 

000 

c 



000199 

ooo 


GO TO 6500 


■ 000195 

ooo 

c 



000196 

ooo 

SIOO 

ASSIGN 5300 TO ZZ 


000197 

000 


HTB = NFLOUt LOCl + Jl 1 

000199 

000 


NFHn = NFL0W1L0CI*J1*11 

000199 

ooo 


1C a NFLOUCLOCOI 


000150 

ooo 


X a 0.0 

o ^ 

O C2 

000151 

ooo 

c 


000152 

ooo 

C TJBE LOOP 


000153 

ooo 

c 



000159 

ooo 


00 BOQO K=1,IC,3 


000155 

ooo 


L a toco ♦ K 

000156 

ooo 


LHP a lABS(NFLOUtLl) 

0001S7 

ooo 


NTVP = NFUDUtL*!! 

000159 

ooo 


NTBLNP a NFL0U(L*3) 

000159 

ooo 


X a X * TYPE13.NTVP1 


000160 

ooo 


tFtHTBLPIPJ 7900, 1900, ZZ 

000161 

ooo 

5300 

HU a TPOttS.TUl 


OO0I63 

000 


GO TO 7000 


000163 

000 

5300 

IFtNFBn .EQ. XPl 1 GO TO 7700 


000169 

ooo 


sum a 0.0 


000165 

ooo 


S0M3 a 0.0 

, 

000166 

ooo 


CALL UPSuniiNFon, LOCI, Jt, sum 


000167 

ooo 


5HU1 a suni/sunz 


000160 

ooo 


CALL RPDl(NH,SHUI,STUn 


000169 

ooo 


KPl a HFUN 


PAGE 


... .It tw ‘ - 


OQOiro 

ooo 

7T00 

HU = SHUl 

000171 

000 


TU = STUl 

000172 

000 

7800 

CALL TnPEOtHTB,L,TYPEC 1,NTVP 1,HU,TU,X 1 

000173 

DOO 

7900 

TU = TCLMP ) 

000170 

000 


ASSIGN 5200 TO ZZ 

000175 

DOO 

BODO 

CONTINUE 

000176 

000 

C 

• 

000177 

000 

8500 

CONTINUE 

OOOI7B 

000 

C 


003179 

000 

9000 

CONTINUE 

oooiso 

000 

C 


OOOIBI 

000 


oetubn 

0001B2 

000 


END 


END ELT. 


B«TE 022875 


■»H0G,P Fuunp 



V tSTTTT^ 


FACE H 


/ 

FLUHP DATE DZaSTS 

AELT.L FLUtlP 

ELTOTT HLIBTO 02/Z8-03 j 19 1 , ) 



DOOOOl 

000 



SUBRDDTIME FLUMPlt^HODES* JSWJ 


Daoooz 

000 

c 




□00003 

OOO 



logical err 


00000<l 

000 

c 




000005 

000 



OinEHSION NQDESt 1) 


00^006 

OOO 

c 




000007 

OOO 



connoff /TAPE / »IH, NOOT 


000000 

OOO 



connori /card / krd. kol. nXKOL 


000009 

OOO 



connoN /cinnGE/ kardcsoi 


OOOOIO 

001 



COnnON /FLDERR/ERR 


000011 

000 

c 




0000 12 

OOO 



L = 0 


000013 

OOO 


15 

CALL SKPBCJSUt 


OOOOIH 

OOO 



GO TGI 50,120), JSU 


000015 

OOO 


50 

IFtKAHOlKOLl .HE, IHt ) GO TO 75 


000016 

OOO 



KOL = KOL + 1 


OOOOIT 

OOO 



tt = KOL 


oooota 

000 



CALL SUBN(Nl.rSU) 


000019 

OOO 



HOOESi L+l 1 = -HI 


OQ0020 

OOO 



GO 70(55,85,95,105,991, JSU 


000021 

OOO 


55 

KOL = KOL ♦ 1 

Hi 

000022 

ooo 



It = KOL 

w 

1 

000023 

OOO 



CALL SUBH(H00EStL+2),ISU) 

H 

000029 

000 



GO 70(50,85,95,105,99), ISU 

to 

000025 

000 


60 

M3 = 1 


000026 

OOO 



IF(KARD<KOL) .GO, 1H))-G0 TO 65 


000027 

ooo 



KOL = KOL + I 


00O02B 

OOO 



K = KOL 


000029 

ooo 



call SUDH(H3,tSU) 


000030 

000 



60 70(65,05,95,105,991, ISU 


000031 

000 


65 

NODES! L*3» = «3 


000032 

000 
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000 
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000 
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DO 30 j=l,IC,2 
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000 



DATA(LOC+J) = DATA(LDC+J) + OOTinE 
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CONTINUE 

000026 

000 
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90 

CONTINUE 
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000029 

000 



RETURN 
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THE DEFlHinOJIS OF THE CONTROL CONSTflHTE ARE..-. 


THIS SUBROUTINE USES IMPLICIT FORU AHD-BACKUARD DIFFERENCING 
TQ PERFORPl TRANSIENT TKERflAL ANALYSIS. THE FOURIER EQUATION IS 
FIRST URITTEN IN -FORUARD- FINITE DIFFERENCE FDRn AND THEN IN 
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3 CONTAINS THE PROBLEM STOP TIME 
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CC20 CONTAINS THE NUMBER OF RELAXATION LOOPS USED, INTEGER 
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CC32 CONTAINS THE ENERGY BALANCE OF THE SYSTEM, IN - OUT (ENGBALI 
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000078 

000 

a 

BACKUP 

# 

TINEO 

r 

TIMEN 


DTNPCC , 

ATNPCC 

, CSGNIN 


FNDBCK 
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ARLXCA 

0 

LOOPCT 
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ooo 
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000095 

GOD 



IFtDUTPUT.LE.O.OI 
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000 
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GO TO 5 20 
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OOOIOI 
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FUOBCK 
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ooo 
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GO TO 530 
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ooo 



IFI ATNPCP.LE.O.O 1 

ATNPCA = l.Ot+0 
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ooo 
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IF (CONCO) .LE. 0.1 CONISOl =1. 
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ooo 



IFINLOOP.LE.OI 

GO TO 590 

FUOBCK 

000106 

ooo 



IFI LSPCS-NE.l J 

GO TO 550 


000107 

ooo 



GO TO TOO 


FUDBCK 

00 )ioe 
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UHITEINOUT.501 ) 


FUDBCK 

ODt‘109 

000 


501 

FORNATI ’0«+ERn0R+* OUTPUT MOST 

BE SPECIFIEUM 


OOLUO 

ooo 



GO TO 600 


FUOBCK 

OOOltl 

000 


510 

URITC INOUT.5111 


FUOBCK 

000112 

ooo 


511 

FORNATI '0**ERROR** OTINEI NUST 

BE SPECIFIEQ' 1 
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1. t 
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I . I r'l* 
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GO TO 600 


FUDBCK 

OOOU't 

000 
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URITE (N0UT.521 ) 


FUOCCK 

000115 

000 
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FOHnnK •0++EBH0R*+ ORUXCA HOST BE SPECIFIED') 



000116 

000 


GO TO 600 
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000 
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000 
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0001 19 

000 
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. 
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000 
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WRITE 1NOOT.591 1 
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000 
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000122 

000 


GO TO 600 


FUDBCK 
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000 
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WRITE {N0UT,55l > 


FUDBCK 
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000 

551 

FOnnATt '0*+ERRDB*+ -FWDBCK- REOUIBES -LPCS-' ) 
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GO TO 600 


FUDBCK 

000126 

000 
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URITE l»0UT,561 1 


FUDBCK 

000127 

000 
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000 
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000129 

000 
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CAUL QUTCAL 


FUDBCK 
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000 


RETURN 
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000 
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000 
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FUDBCK 

000139 

000 


NN = NNO+l 


FUDBCK 

000135 
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000136 

000 
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H3 = 1.000/3.000 



000138 

000 
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001 
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IXF = NTH 
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001 


IFtHSYS -UT- 1 ) GO TO 750 
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001 


FLOW = .TRUE. 



000199 

001 


MSP = NMT 



030195 

001 
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001 


«X( IXF*I ) = 0 



000197 

001 

725 

CONTINUE 
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000 
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ooo 
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000 
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000 
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000 
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000 
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NTH = NTH*J 
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000163 

ooo 
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000169 

ooo 
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000165 

ooo 
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ooo 
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FUDBCK 
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ooo 
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ooo 
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ooo 
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QDOITO 
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RETUHM 
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000 
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000172 

000 
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000173 

000 

c 

SET UP INtTlAI. VALUES, ZERO OUT SOURCE TEROS CALL -VARBU- 

FUDBCK 

00017<l 

000 
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AND CALL -OUTCAL- FOR START CONDITIONS 
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000175 

000 
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OOOlTt 

000 
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FUDBCK 

000177 

000 
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IDIPT = NOtn 

FUDBCK 
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000 


TTH = nth 

FUDBCK 

000170 

000 
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ooo 


OTINEU = 0.0 
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000 


TIMEM = TIMED 

FUDBCK 

000182 

coo 


sunoTP =0.0 

FUDBCK 

000183 
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FUDBCK 

OOOIBO 
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FUDBCK 

000 IBS 
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000 
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000191 

ooo 
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000193 

000 
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000199 

000 
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000195 
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ooo 


GO TO 1500 

FUDBCK 

000198 

ooo 
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IFCCHKSUn+DTtnEU.LT. OUTPUT) GO TO 1500 

FUDBCK 
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DTIMEU = (OUTPUT-SUnOTP 1/2.0 

FUDDCK 
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TIMEN = TIMEO+OTIMEU 

FUDBCK 
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IFiriMEN.LT.TIMENOl GO TO 1590 

FUDBCK 
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ooo 


TIMEN = TIMEMO 

FUDDCK 

000203 

ooo 


UTlMEU = TIMEND-TIMEO 

FUDBCK 

000209 

ooo 


SUMDTP = QUTPUT-DTIMEU 

VERl+U 

000205 
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FUDBCK 

000206 

000 


IFIOTIMEU.GT.DTIMEL) GO TO 1600 

FUDBCK 

O00207 

ooo 


WRITE tHQUT,I59l) OTIMEU 

FUDBCK 

000208 

ooo 
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FORMAT! *0**ERfl0R** DTIMEU IS LESS THAN OR EQUAL TO tJTlMEL,' 
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ooo 

4 

' DTIMEU ='CV3.6 ) 
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ooo 
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VERl+9 
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ooo 


RETURN 
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0TD2CC = DTIMEU/2.0 
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000 
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ooo 


ASSIGN 1650 TO (PASS 
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ooo 
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ooo 
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ooo 


IF( ABSIEXTLIMl.NE.O.Ol OIFMAX = ABblEXTUtM) 


000218 

ooo 

c 


FUOBCK 

000219 

ooo 


FUOBCK 

000220 

ooo 

c 

RELAX THE DIFFUSION AND ARITHMETIC NODES 

FUDBCK 

000221 

ooo 

c 


FUDOCK 

000222 

ooo 


DO 5001 LOOPCT = l.NLOOP 


000223 

000 


J1 = 0 


000229 

ooo 


ORLXCC = 0.0 

FUDBCK 

000225 

ooo 


ARLXCC s 0.0 

FUDBCK 

000226 

001 


XOP = 0 
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FUDBCK 




DATE 022875 

00022T 

001 


JFIOPEITH.NE.O.OI KDP = 1 


000228 

000 


CQ TO IPfiSS 

FNDBCK 

000228 

000 

c 


FWDBCK 

000230 

000 

c 

QM FIRST PASS ZERO OUT SOURCE TEHtlS AND CALL -VAHBLt- 

FUDBCK 

000231 

000 

c 

TO SET CONOtriOUS FOR THIS IMTERVAL 

FUDBCK 

000232 

000 

c 


FUOBCK 

000233 

001 

1650 

ASSIGN 2550 TO tPASS 

• 

00023H 

000 


J2 = 1 


000235 

000 


BACKUP = 0.0 

FUDBCK 

000230 

000 


DO 1200 I = l.NNC 

FUDBCK 

00023T 

000 

1700 

Ut I 1 = 0.0 

FUDBCK 

00023B 

000 


CALL VARBLl 

FUDBCK 

000239 

coo 


IFCBACKUP.tlE.O.Ol 60 TO 1300 

FUDBCK 

000290 

000 

c 


FUDBCK 

0002*11 

000 

c 

CONVERT TEflPEBATUBES TO RANKING AND LOAD OVMAfllC STORAGE 

FUDBCK 

000292 

000 

c 


FUOBCK 

DO029 3 

000 


DO 1600 I = l.NNT 

FUOBCK 

000299 

000 

1600 

T( I 1 = TI I 1*960.0 

FUOBCK 

000295 

001 


DO teso I = 1,NNT 

FUDBCK 

000296 

000 

1850 

XI IXl + I 1 = T( I 1 

FUDBCK 

00029T 

001 

c 



000298 

001 


IFIFLOUI CALL FLUID! 2, t X 1, IXF,TZERO,KDP 1 


000299 

000 

c 


FUOBCK 

000250 

000 

c 

ON FIRST PASS SET UP THE CONSTANT TEBnS FOR THE DIFFUSION 

FUDBCK 

000251 

000 

c 

NODES IN THE CAPACITANCE AND IN THE SOURCE ARRAVS. 

FUDBCK 

000252 

000 

c 


FUOBCIl 

000253 

ooo 


□0 2500 1 - t.NNO 

FUOBCn 

000259 

000 


TI = T(1 I 

FUOBCK 

000255 

000 


nil = nil -960. 


000256 

000 


IF(FLD(t,l,NS01( Jl*111.Ea.O) GO TO 2000 


00025T 

000 


NTVPE = FLD< 0»5»NSQ2( J211 


0QO2SS 

000 


LA = FL0t5,lT,NSQ2( J21) 


000259 

000 


LK = FL0(22>19,NSQ2( J211 


000260 

000 


GO TO 11005.1010,1015.1020,1025,1030,1035,1090,10951, NTVPE 


000261 

000 

1005 

call DiOlWHi n I i,Ai lai,xk( lk i,C( r 11 


000262 

000 


GO TO 1999 


000263 

000 

1010 

CALL DIDlUnITf 1 1 . At LA 1 . XKl LK 1 ,C 1 1 


000269 

000 

1012 

J2 = J2+1 


000265 

000 


LA = FLDt 5,1T,NS02( J21 1 

■ 

000266 

000 


LK = FL0(22.l9,NSQ2t J211 


000262 

000 


call OlOlUntTt 1 >,AtLAl,XXILKl,C21 


000266 

000 


GO TD 1998 


000269 

000 

1015 

Cl = XK( LKKXKILA 1 


0OO220 

ooo 


GO TO 1012 


0002M 

000 

1020 

CALL OlOlUnt T( I 1, AtLA ),XK(LK1,C1 I 


000222 

ooo 


J2 = J2*l 


000273 

000 


LA = FL0(5,12,NSO2( J2 11 


000229 

ooo 


LK = FL0t22.19,MSQ2t J211 


000225 

ooo 


C2 = XK(LX )*XK< LAI 


000226 

ooo 


GO TO 1998 


000222 

ooo 

1025 

CALL PLVAUNI At LA I , T( I ) , A( L A*1 1, XKC LK ),C< I 1 1 


000228 

ooo 


GO TO 1999 

.. 

000229 

ooo 

1030 

CALL PLVAUnt At LA >,T1 t },AtLA*1 l.XKt LK },C1 1 


000280 

ooo 

1032 

J2 = J2M 


000281 

000 


LA = FLDt5, t2,NSQ2f J2 ) 1 


000282 

ooo 


LK = FLBt22.l9,HSD2t J211 


000283 

ooo 


CALL PLVAUnt AtLA I.Tt 1 l.At LA+l l,XKtLK 1,C2) 
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ooozs>» 

000 


GO TO 1998 




00026S 

ooo 

1035 

Cl s XK(LK)*XK(LA1 




000286 

000 


GO TO 1032 




0002BT 

000 

1090 

COLL PLVftUMt ACLA»,T( 1 J, At LR+1 1,XK( LX I,C1 ) 




0002B8 

000 


J2 = J2M 




000209 

000 


LA = FL0t5,lT.N5Q2C J211 




000290 

000 


LK = FLD<22,19,NSQ2(J211 




000291 

ooo 


CZ = XKtUt t«)CK(LAl 




000292 

000 


GO TO 1998 




000293 

000 

1095 

call 0201 unc Tt 1 ),CDH( 19 1 , At LA 1 ,XK( LK ), Ct t) 1 




000299 

ooo 


GO TO 1999 




000295 

ooo 

1990 

Ct I 1 = CI+C2 




000296 

ooo 

1999 

J2 = J2*l 




000297 

ooo 

2000 

CONTINUE 




000290 

ooo 


Ct 1 1 = Cf I 1/DT02CC 

FHDBCK 



000299 

ooo 


CIP = Ct n 

FUDBCK 



000300 

oco 


IFtFLDf9,l,NSQlt Jt + l)).Ea.O} GO TO 5000 




000301 

ooo 


NTVPE = FLDf 0,5,HS02t J2>> 




000302 

ooo 


LA = FLDt5,17,»sa2l JZn 




000303 

000 


LK = FLOl 22,19,nSQ2< J2)l 




00030H 

ooo 


GO TO 19005,9010,9015,9020,9025,9030.9035,9090,9030, 

WEBS 

5 


000305 

000 

■ 9050,9050,9050 >,NTVPE 

VERS 

5 


000306 

OQO 

9005 

Of I 1 = XKtLK J+Ot I 1 




000307 

000 


GO TO 9999 




000300 

000 

9010 

Ql = 0,0 


• 


000 309 

ooo 

9012 

CALI. OlDiUni Tt I >,AtLA »,XK( LK),Q21 




000310 

000 


GO TO 9998 




000311 

ooo 

9015 

01 = 0.0 




000312 

ooo 

9017 

CALL OIDluniCONt 19),AtLA),XK([.K 1,021 




000313 

OQO 


GO TO 9998 




000319 

ooo 

9020 

CALL OlDlUntCONt 191.AlLA),XK(LKl,an 




000315 

ooo 

9022 

J2 = J2-M 




000316 

ooo 


LA s FLDt5,17,flSQ21 J2H 




000317 

OQO 


LK = FLDt 22,19, NSOZtJZn 




000318 

000 


GO TO 9017 




000319 

OOO 

9025 

01 = XKCLK )»XX(LAl 




000320 

ooo 


GO TO 9022 




000321 

ooo 

9030 

call DlOlunt COKI 19 1,n(LA1,XK(LK),Qt > 




000322 

ooo 


J2 = J2*l 




000323 

000 


LA a FLDC5,1T,NSQ2C J2)> 




000329 

ooo 


LK = FLDt 22,19, NS02C J2 M 




QD0325 

ooo 


02 = XKtLK)*XKILA> 




000326 

ooo 


GO TO 9998 




000327 

009 

903S 

CAUL OltntJnc CONI 19 l,A(LAl,XKt LK l,On 




000323 

ooo 

9037 

J2 = J2*l 




000329 

ooo 


LA : FLD15,17,NS02I J2I) 




000330 

ooo 


LK = FL0(22,I9,NSD2I J2)l 




000331 

ooo 


GO TO 9012 




000332 

ooo 

9090 

01 = XK(LK1>XKCLA) 




000333 

ooo 


GO TO 9037 




000339 

000 

9050 

J2=J2*1 

VERS 

5 


000335 

ooo 


JPSLA=FL0I5, l7,N502t J2 n 

VERS 

5 


000336 

000 


JPSLK=FLOt 22,l9.NS02f J2 1 > 

VERS 

5 


000337 

ooo 


SP JTlnaCONt 19 )*XK< JP5LA mXKC JPSLK 1 

VERS 

5 


000338 

ooo 


CALL DlinCVI XKt JPSLK), SPJT|h,AtLAl,XKtLK], 01 ) 

VERS 

5 


000339 

ooo 


OZaO.O 

VERS 

5 


000390 

ooo 


GO TO 9998 

VERS 

5 
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PAEE 


000 I'll 

000 

4998 

0< 1 » = Q1*Q2+Qt 1 ) 


0003‘)2 

000 

4000 

J2 = J2*l 


oooaia 

DOO 

5000 

CONTINUE 


OOQS'l'l 

000 


0! = ♦2.0*01 I )+TI»CIP 

FUDDCK 

000345 

OOO 


ESUn = 0.0 

FUOBCK 

00034& 

000 


GSUML = 0.0 

FUOBCK 

0003117 

000 


GSUnR =0.0 

FUOBCK 

0003HO 

000 


osun = 0.0 

FUOBCK 

0003‘l‘l 

ODl 


IFI.NOT. FLOU) GO TO 70 


000350 

001 


LflP = NXl IXF+I ) 


000351 

001 


IFCLHP .EQ. 01 GO TO 70 


000352 

00 1 


HA n XlI7F+LnP) 


000353 

001 


osun = Hn*Tn.MP) 


000354 

001 


at = 01 + IXI^LPIP ) 


000355 

oot 


Gsunt = HA 


000356 

000 

70 

J1 = Jl*l 


000357 

000 


16 = FLDC S, lA.NSOK jnt 


D0035S 

001 


IF(IG.EQ.O) GO TO 81 


O003S5 

000 


LTA = FLm22,l4.,N£ai(J11) 


000360 

000 


T(LTA> = TILTA) -460. 


000361 

000 


LTRE = LTA+IXl 


000362 

000 


IF(FLD< 2,I,NSQ1( J1 n.EQ.OO GO TO 3000 


000363 

000 


NTVPE = Ft0c0,5,WSQ2tJ2)J 


000364 

000 


lA = FLD(5, 17,«502( J2)l 


000365 

000 


LK = FlOt 22, 14,riS02( J21 ) 


000366 

000 


GOTOI 2005.20 10, 20 15, 2020>2025,2030. 2035,2040,2045, 2050, 2055. 


000367 

000 

1 2060,2065,2070,2073,2070) , HTVPE 

VEB 6 

D0O368 

000 

2005 

Tn = ( T( I l^TdTfl ))/2,0 


000360 

000 

2007 

CALL DlDlum Tn,A(LAl,XK{LK),E(LG)) 


000370 

000 


Go TO 2000 


000371 

000 

2010 

Tn i T( I ) 


000372 

000 


GO TO 2007 


000373 

000 

2015 

CALL SiOlUntTC I ),A(LA),XK(LK),G1 ) 


000374 

000 

2017 

J2 = J2*l 


000375 

000 


LA a FLtl(5,17.N502( J2)1 


000376 

000 


LK =■ FLOt 22,14,NSD2I J2 1 ) 


000377 

000 


CALL 0101umT(LTA),A(LA),XK(LK),G2> 


000376 

000 


GO TO 2000 


000370 

000 

2020 

El = XK( LK >«XKl LA) 


00D3S0 

oos 


GO " 2017 


0003S1 

000 

2025 

CALL DID turn T( I 1,A(LA1,XK(LK),G1 1 


000382 

000 


J2 = J2*l 


0003S3 

QOO 


LA = FLDI5,1T,NS02( J2)> 


000384 

000 


LK = FL0C22,14,N5D2IJ2>) 


000385 

000 


G2 = XKILK >>XX(LR) 


000386 

000 


GO 70 2000 


0003S7 

OOO 

2030 

Tn = ( T« 1 J*TCLTA)1/2.0 


000388 

000 

2032 

CALL PLVAUn(RtLA),rn,niLA+l ),XK(LK I.GtLG )) 


000330 

OOO 


GO TO 2009 


000300 

000 

2035 

T« = Tt J ) 


000301 

000 


GO TO 2032 


000392 

000 

204 0 

CALL PLVAUnr AtLA),T( t ),A( LA^l ),XK( LX 1 > '1 ) 


000393 

OOO 

2042 

J2 = J2*l 


000304 

OOO 


LA = FL0f5.tT,NSQ2t J2t) 


000305 

OOO 


LK = FLOC22,I4,NS02(J2)) 


000306 

OOO 


CALL PLVAUnc AtLAI, TILTA ).AtLA^l ),XK< LK1,G21 


000307 

OOO 


GO TO 2908 
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000398 

000 

2095 

G1 3 XK(|.K}«XK(LA} 


000399 

000 


GO TO 2092 


OOO'lOO 

000 

2050 

CflUI. PLYAUm A( LA ),Tt J), AC LA+1 >,XKC LK 1.51) 


000901 

000 


J2 = J2+1 


000902 

000 


LA = FUK5,17,NS0a< J2)l 


000903 

000 


LK = FLDC 22rl9,U$Q2C J21) 


000909 

ooo 


G2 XK(LX1»XK(LA } 


000905 

000 


GO TO 2998 


000906 

ooo 

2055 

Ttl = CTt I )*T< LTAl 1/2.0 


000907 

coo 


CALL D20l«mTM,C0Nt 19 1,ACLA l.XKt LI0,G(LG »> 


000908 

000 


GO TO 2"?9 


000909 

000 

2060 

Ttl = TtLTA) 


000910 

000 


GO TO 200V 


0009 1 1 

ooo 

2065 

TH = TCLTA) 


000912 

ooo 


GO TO 2032 


000913 

ooo 

2070 

CALL DlDtUnc colic 19 1 , A( LA ) , XKC LK I ,G 1 ) 

VER 6 

000919 

ooo 

2071 

Tfl s CTcn f TCLTA) > / 2,0 

VER 6 

000915 

ooo 


J2 = J2 + 1 

VER 6 

000916 

ooo 


LA = FL0C5,17,NS02t J211 

VER 6 

000917 

ooo 


LX “ FL0<22,19,N5Q2I J2 1 ) 

VER 6 

000918 

ooo 


IFtMTVPE -EQ. 161 GO TO 2075 

VER 6 

0Q0919 

ooo 


CALL oaoium rn, gi. aclai, xkclki, gclgii 

VER 6 

000920 

ooo 


GO TO 2999 

VER 6 

000921 

000 

2073 

Gl ~ XKCLAl • XKCLKl 

VER 6 

000922 

ooo 


GO TO 2071 

VER 6 

000923 

ooo 

2075 

GCLG) = Gl • XKtLA) « XKCLKl 

VER 6 

000929 

ooo 


GO TO 2999 

VER 6 

000925 

ooo 

2990 

GCLG) = 1 ./( 1 ,/Gl*l,/G2 1 


000926 

ooo 


IFCFL0C3. IrNSQIC J1 IKEO. 1 > GCLGl = G1«G2 


000927 

ooo 

2999 

J2 = J2+1 


00092B 

ooo 

3000 

COHTIIJUE 


000929 

ooo 


TCLTA! = TILTAl *960, 


000930 

000 


TNT - TCNTl 

FUDBCX 

000931 

ooo 


GNG = GCNGl 

FtJDBCK 

000932 

ooo 


TNTO = TNT 

PUOSCK 

000933 

boo 


IFI HT.LE.NNC) INTO = XCtXl*NT) 

FUDBCK 

000939 

ooo 


IF 1 FLDC 3.1.NSQIC Jl n.NE, 0) GO TO 2100 


000935 

ooo 


GSUnL = GSUnL*GNG 

FUDBCX 

000936 

ooo 


GSun 9 GSun-»GNG 

FUOBCK 

000937 

000 


Ql s Ot-*GNG*TNTO 

FUQBCK 

0009 3S 

ooo 


osun . = □SuntGNGvTHT 

FUDBCK 

000939 

ooo 


GO TO SO 


000990 

ooo 

2100 

GN6 = GOG «SIGnA 


000991 

ooo 


Gsunn s Gsunn '»gng 


000992 

ooo 


GSUn = GSUn*GNG»J TNT+TI l»rc THT*TnM2-2,0*TNT»TI) 

FUDBCK 

000993 

□ 00 


. 01 * Or-tGNG*TNTO»*9 

FUDBCK 

000999 

ooo 


osun = aSUn+G»G*TNT«*9 

FUOBCK 

000995 

000 

C 

CHECK FOR LAST CONDUCTOR 


000996 

000 

SO 

IFCNSQU Jt 1.GT.01 GO TO 70 


000997 

001 

81 

T( I I = TC 1 ) ♦ 960.0 


000998 

ooo 


IFCGSUnR.EQ.O.O) GO TO 2300 

FUDBCK 

000999 

ooo 

C 


FUOBCK 

000950 

000 

c 

SET UP CONSTANTS FOR USE SUBSEQUENT tTERATIONS AND 

FUDDCK 

0009 SI 

ooo 

c 

THEN SOLVE FOB TEnPEBATURES BY THE GENEBAL QUARTIC 

FUDBCK 

000952 

0« 

c 

FonnoLA 

FUDBCK 

000953 

ooo 

c 


FUDBCK 

000959 

000 


net) 5 TI»CTI«*3»0SUMR+G5UnL)-0I 

FUOBCK 


DATE 022B75 
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DATE 022B75 

PAGE 

000‘»55 

000 


CC = (ClP-iGSUTtLl/BSUnn 

Ft-IOSCK 


OQ0H5& 

OOQ 


FF = -CC**2*R16 

FUO0CK 


ODO'lSr 

000 


(5Q = {Q(IJ-QSUm/GS0nB*R3 

FUDDCK 


000>153 

OOQ 


GG = FF*»2-GG**3 

FUDDCK 


OQOHS^ 

000 


IF< GG.6T.O.O) GO TO 2250 

FUDBCK 


oaoifro 

000 


T2 = 0.0 

FWOBCK 


000*161 

000 


GO TO 2920 

FUDBCK 


000*162 

000 

Z7'!0 

GG s sanT(GG) 

FUDBCK 


000*163 

000 


22 = SOUTH GG-FFl»*B3-t Gu+FF)**H3) 

FUDBCK 


OOOH6*1 

000 


T2 = nSn2'*«-22<-SQnTt-22**2+CC»BSn2/ZZJ> 

FUDBCK 


000*165 

ooo 


GO TO 2920 

FUDBCK 


000*166 

OOQ 

2300 

IFIGSUPL.EQ.O.O) CQ TO 2399 



000*167 

000 

c 


FUDDCK 


000*163 

000 

p. 

SET UP CONSTANTS FOR USE SUBSEOUENT ITERATIONS AND 

FUDDCK 


000*169 

OOQ 

c 

THEN 50UVE FOR TEtaPEHATUHES DV A LINEAR EQUATION 

FUDBCK 


OO0H7O 

000 

c 


FUDBCK 


QODHTl 

000 


on » = -TI*GSUnL+DI 

FUDBCK 


000*172 

000 


T2 = (QC I )+0SUni7tCtP*GSUnUl 

FUDBCK 


000*173 

000 


GO TO 2920 

FUDBCK 


000*17*1 

000 

2399 

T2 = HI) 



000*1 TS 

000 


IF (IFIRST ,HE. 01 GO TO 2920 



0009 76 

000 

2900 

WRITE! N0UT,29*'i ) 1 

FUDBCK 


OODHTT 

000 

2901 

FORMAT! 'Q*+EnHQH-»* THE SUM OF THE CONDUCTORS ATTACHED TO • 



000970 

ooo 


, ' RELATIVE N00E*t5,« IS EQUAL OR LESS THAN ZEBO*) 



000979 

000 


!F ( I.LE. NND) GO TO 2920 



OOOHSq 

ooo 


GO TO 3750 



0009S1 

ooo 

c 


FUDBCK 


000902 

OOD 

c 

COMPUTE TEMPEBATUflE CHANGE AND SET THE NEW TEMPERATURE 

FUDDCK 


000933 

ooo 

c 


FUDBCK 


0009 09 

OOO 

2920 

Tl = T2-T1 

FUDDCK 


000905 

ooo 


Tin = T2 

FUDBCK 


D00986 

ooo 


tF!AGS!DBLXCC).GE.ABS(Tl )l GO TO 2950 

FUDBCK 


000937 

OOO 


DBLXCe = Tl 

. FUDDCK 


000900 

ooo 


NDRLXC = 1 

FUDBCK 


000939 

ooo 

c 


FUOBtK 


000990 

000 

c 

COMPUTE CSGMIN FOR INFORMATION ONLY 

FUDBCK 


000991 

ooo 

c 


FUDBCK 


000992 

001 

2950 

IF! GSUM.EO.O.Q I GO TO 2500 



000993 

001 


CSG = CIP • DT02CC/GSUM 



0009 99 

ooo 


IFICSC.GE.CSGMIN1 GO TO 2500 

FUDBCK 


0009 95 

ooo 


CSGMIN = CSG 

FUDBCK 


000996 

ooo 


NCSGM = I 

FUDBCK 


00099T 

000 

2500 

CONTINUE 

FUODCK 


000990 

000 


GO TO 3350 

FUDDCK 


000999 

000 

c 


FUOBCK 


000500 

000 

c 

ON SECOND AND SUBSEQUENT ITERATIONS USE CONSTANTS CPEATED 

FUDBCK 


000501 

oeo 

c 

ON FIRST ITERATION 

FUDBCK 


000502 

ooo 

c 


FUOaCK 


000503 

ooo 

c 


FUDBCK 


000509 

ooo 

c 

MAKE AN ITERATION PASS ON THE DIFFUSION NODES 

FUDBCK 


000505 

OOD 

c 


FUDBCK 


000506 

001 

2550 

IFIFLOW) CALL FLU ID! 2 > I X 1 , 1 XF. T2ER0. KOP 1 



000507 

001 


CSG = CIP * 0TD2CC/GSUn 


*• 

000500 

001 . 


CSG s CTP • DT02CC7GSUM 



000509 

ooo 

2600 

00 3300 I = I.NND 

FUDBCK 


000510 

ooo 


Tl =< T< I ) 

FUD3CK 


0005 11 

000 


CIP = Cl I 1 

FUOBCK 
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BATE 022975 

aoosl2 

000 


Bsun = 0.0 

FUDBCK 

000513 

000 


GSUML- = 0.0 

FUDDCK 

000515 

. ooo 


GSUMR = 0,0 . 

FUDBCK 

000515 

000 


Qsun =0.0 

FUDBCK 

000516 

001 




000517 

001 




000510 

001 


IFt .NOT. FLOU) GO TO US 


000515 

001 


LMP = KXl IXF+I ) 


000520 

001 


IFtLOP .ED. 01 GO TO 115 


000521 

001 


Hft = XI IXF*LnP 1 


000522 

00 L 


QSUn = HA»TCLHP> 


000523 

001 


GSLtnL = HA 


0005 25 

001 


GSUn = HA 


000525 

009 

115 

J1 = Jl+l 


000526 

coo 


LG = FLDC5,16,NSQ1( J1 )1 


000527 

001 


tRLG.EQ.D) GO TO 126 


000529 

OQO 


LTA = FLDC22,15,NSQUJln 
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CHECKING TO SEE IF DELTA TEMPERATURE DIFFERENCE FOB A TIME 

FUOBCK 

000890 

000 

c 

INTERVAL IS UITMIN LIMITS. IF 

NOT CALCULATE A SMALLER 

FUOBCK 

OOC891 

000 

c 

TIME INTERVAL AND HE-DO THE TEMERATUPE CALCULATIONS 

FUDBCK 

000892 

ooo 

c 



FUOBCK 

000893 

000 

c 

CHECK DIFFUSION NDDE 


FUOBCK 

000899 

OOO 

c 



FUDBCK 

000895 

ooo 

5200 

OTMPCt 5 0.0 


FUOBCK 

000896 

oao 


DO 5300 I = l.NNO 


FUOBCK 

000897 

ooo 


DTMP = T( I t-XI IXI + 1 1 


FUOBCK 

000898 

ooo 


!F< ABSIOTMP I.LE.ABSIOTMPCC 11 

GO TO 5300 

FUDBCK 

000899 

ooo 


DTMPCC = OTMP 


FUOBCK 

090850 

000 


NRTMPC = 1 


FUDDCK 

000891 

000 

5300 

CONTINUE 


FUDBCK 

000852 

ooo 


IF< AB5I DTMPCC l.LE .OTMPCR 1 

GO TO 5500 

FUDBCK 

000853 

ooo 


DTIMEU = 0.9S>OT|nEU*DTnPCA7nRS<DTMPCC 1 

FUDDCK 


DATE 022ST5 


IS 



snT-d 


, u — . L — , ; : L. ...... i ; L..._. CTZi rm C« 


FUDECK 



. / 


DATE 022875 

PACE 

OOG9U 

000 

c 



FWDBCK 


000912 

000 

c 

BftCKUP SWITCH KftS BEEK TURNED OH FROM “VftRBL2-. WIPE GUT 

FUOBCK 


000913 

000 

c 

THE CALCULATED TEMPERATURES AND RELOAD THE 

INITIAL 

FUDBCK 


000919 

000 

c 

TEMPERATURES FDR THE TIME STEP FROM DVNAMIC 

STORAGE. 

FUOBCK 


000915 

000 

c 

CONVERT THE TEMPERATURES BACK TO FARENHEIT 

AMO REDO 

FUOBCK 


000916 

000 

c 

THE TIME STEP. 


FUOBCK 


000917 

000 

c 



FUOBCK 


000918 

001 


DO 7220 1 = 1,HNT 


FUOBCK 


000919 

000 

7220 

Tt I ) = XC 1X1 + 1 1-960.0 


FUOBCK 


000920 

000 


GO TO 1300 


FUOBCK 


000921 

000 

c 



FUOBCK 


000922 

000 

c 

CHECK FOR TIME TO PRINT, INCREMENT TIME. 


FUOBCK 


000923 

000 

c 



FUOBCK 


000929 

000 

7290 

TIMED = TIMEN 


FUOBCK 


000929 

000 


IFtnST =I 




000926 

QDO 


SUMOTP = SUnOTP+OTIDEU 


FUOBCK 


000927 

000 


IFIOPEtTR.HE.O.Ol CALL DUTCAL 


FUOBCK 


00092B 

OQO 


IF( SUM0TP.lt. OUTPUT) GO TO 7300 


FUOBCK 


000929 

000 


CALL OUTCAL 


PUDfiCK 


000930 

OQO 


WRITE (6,80001 LOOPCT 




000931 

OOO 

BOOO 

FORMAT (721H LOCPCT=, I 10/ 1 




000932 

000 


■NLINE = NUIME +3 




000933 

OOO 


SUMOTP = 0.0 


FUOBCK 


000939 

000 

C 



FUOBCK 


000935 

000 

c 

CHECK FOR TIME TO STOP 


FUOBCK 


000936 

000 

c 



FUOBCK 


000937 

000 

7300 

IFt T!MEN*0.0l<-DTlMEU.LT.TInENOl GO TO 1300 


FUOBCK 


000938 

001 


NTH = IXF 


FUDBCK 


000939 

000 


NDIM = IXL 


FUDBCX 


000990 

000 


RETURN 


FUOBCK 


000991 

000 


END 


FUOBCK 



END ELT. 


«HDG.P GENGUT 





mm 








/ 

SIGBUfl / DATE 02Z87S PAGE 

•ELT.L SIGDU’l 

ELTOTT BHB70 OZ/a0-O3'*21 »34-( 0, I 


000001 

000 

GDun 

PBQC 

000002 

000 


IF{F[.D(2,I,NSai(xni.Ea.O) GO TO 300 

000003 

000 


NTVPE = FLD(0,5,HS0aCK2») 

OoOOO'l 

000 


GO TO 1299,299,298,298,298,299,299,298,290,298,299,299,299, 

000005 

000 


1 298,298,298 ), NTVPE 

000006 

. 000 

298 

K2 = K2+1 

000007 

000 

299 

K2 = K2+1 

000000 

000 

300 

CONTINUE 

000009 

000 

END 



EMO ELT. 


«HDG.P StODUn 



DT-l41^ 


L 






L " 'I 

;•'■•. •■•r'u C?^rT^ ■ . - 




^ i 




/ 

/ 

6EM0UT DHTE Q22875 

4ELT.L GENOUT 

ELTOTT HLIB70 02/28-03 1 19 )ST-< 2, 1 


000001 

000 



SUBSOOTIWE GEMOUTtfJaftTn,ISTflT,TSTP,NBnE ) 

000002 

OOO 

c 



000003 

000 



BtnENSION F/mi2), Nftt1EC221 

000004 

OOO 



OlneNStON NDATACl) 

00000$ 

000 



DATA (1AXI / 134217728/ 

000000 

000 



DATA nZEftO /0TTT77T7TT7T7/ 

000007 

OOO 



DATA FfITllT, FnTtlZ) / 6H< ISIP , 6H 1 10 1 / 

ODO0O8 

000 



LOGICAL ONE. CKD 

000009 

000 

c 



000010 

OOO 



BASE = 6HE12.4, 

oooon 

aoo 



ASSIGN 32 TC nn 

000012 

OOO 



CKO = .false. 

000013 

000 



GO TO 5 

000014 

OOO 



ENTBV CENHMDATA.tSTnT.ISTP.NBnE > 

000015 

OOO 



BASE = 6HI9, 3X 

000016 

OOO 



ASSIGN 45 TO ftn 

OOOCIT 

OOO 



CKO = .TRUE. 

OOOOIS 

OOO 



GO TO 5 

000019 

OOO 



ENTRV GENHtNDATA, ISTHT, ISTP.NAnEI 

000020 

OOO 



BASE - 6HE1Z.4. 

OOOOZI 

000 



ASSIGN 45 TO nn 

000022 

OOO 



CKD = .TflUE. 

000023 

000 


9 

DO 6 J=l,21 

000024 

OOO 



IFtNAMEI J+U.EO.nZEBOlGO TO 7 

000025 

OOO 


ft 

CONTINUE 

000026 

OOO 


c 

UOITEI 6,10 UNAnEf | >. t=l,J 1 

000027 

OOO 


10 

FDRrtATt 22A6 » 

000020 

OOO 



ONE = .FALSE. 

000029 

OOO 



IFII5THT .EQ. 1 .AND. ISTP .ED. 1 1 ONE = .TBUE 

000030 

OOO 


IS 

l=tSTHT 

000031 

000 


20 

!F{ I .GT. ISTP ) GO TO TO 

000032 

000 



L=t 

000033 

OOO 



00 30 J = 2,n 

000034 

00 0 



FflTI J » = BASE 

0000 35 

OOO 


30 

CONTINUE 

000036 

000 



IFICKO .AND. ONE) GO TO 60 

800037 

OOO 



IF! t .«E, rSTHTl CO TO 36 

00D03S 

009 



n=ISTflT-10»l ISTBT/IO) 

000039 

OOO 



|F«n ,E0. 11 GO TO 36 

000040 

000 



IFIrt ,E0. 01 n s 10 

000041 

000 



00 35 J=2,M 

000042 

OOO 



FflTI J>=6H 12X 

000043 

OOO 


35 

CONTINUE 

000049 

OOO 



L=n 

000Q4S 

000 



J = I-fl*lO 

000046 

OOO 



GO TO 38 

000047 

OOO 


36 

J = I*9 

000049 

OOO 


38 

IFfJ .LE. ISTP) GO TO 39 

00 O'; 4 9 

000 



n = ISTP - J ♦ 12 

000050 

OOO 



J-ISTP 

000051 

OOO 



DO 37 K=n,U 

000052 

OOO 



FI1TtK)i6M 12* 

000953 

OOO 


37 

CONTINUE 

000054 

OOO 


39 

!•(! TO rm, 1 32,45 ) 

000055 

OOO 


32 

SO 40 K=I,J 


PAGE 1 


0 1 &r-r-^i3 t'-''f.-^ P C.;iR'.-. s (T ! - - r'g 




/ 


GENQUT 


DATE 022BT5 

PAGE 

OOOOS6 

000 

LsL*! 


00OO5T 

000 

TF(tAaS<NOAtB(Kn ,LE. MftXI J FHTtLl=6HI5, 3X 


000058 

000 

50 CONTINUE 


000050 

000 

55 IF! ONE! GO TO 60 


000060 

000 

UniTEI 6,FMT1( NDATAI K),K = I,J},J 


000061 

000 

I=J*l 


000062 

000 

GO TO 20 


000063 

000 

60 UOITEI 6,Ft1T) HDATAC I STItT t 


00006** 

000 

TO OETUHH 


000065 

000 

END 


F«0 ELT. 





t> 

i 

H 

£r* 


«IIOG.P GENLNK/FB 


GENLMK/PB 


/ 


D«TE 022ST5 


PAGE 


1 



AELT.L 

GENLNR/PB 





ELTOTT 

HL1B20 02/28 

-03tl9,59-( 3,1 




OflOOOl 

000 

SUBROUTINE GENLNK 

GNL 

1 


000002 

000 > c 

generates link zero of USER'S PnOGRAM . 

gnl 

2 


000003 

000 

COnnON /CRDBLK/ LS^'ORT, LECARO, LCOPV, NU, KBLKf SOT 1, inOGEC 19 1 

GNL 

3 


ODOOO'J 

coo 

COnnON /TAPE/ KIN, NOUT, INTERN, UB3D, LB9P, LUTl 

GNL 

9 


OOOOOS 

000 - 

COrtnON /DATA/ KND,NNA,NNB>NNT,NGL,KGR,KGT,NUC, NEC I,NEC2,NCT, LENA. 

GNL 

5 


000006 

000 

1 EHnAT0,PRDGRn,EK0RUN,LSEQl,LSEO2,LaNG 

GNL 

6 


ooooor 

000 

COPIClOH /LOGIC/ Dunnvc SB 1.GENERL 

GNL 

T 


oooooe 

000 

COnnON /PLOOIC/ PABIKT, PARFIN, PHOOE, FCONU, PCQNST. PARRAV 

GNL 

S 


000000 

000 

COnnON /PLOGIC/ ptitle, pchgid, lconst, larray 

GNL 

9 


ooooto 

000 

DinENSION nAIK(9) 

GNL 

10 


Dooon 

000 

DinEUSION L0G1CT<I2), L0G1CF121 

GNL 

11 


000012 

000 

LOGICAL PNODE, PCDHO, PCONST, PARHAV 

GNL 

12 


000013 

000 

LOGICAL GENERL, LSTART, LCOPV 

GNL 

13 


00001*) 

000 

LOGICAL LCONST, LARRAV 

GNL 

19 


000015 

DOO 

BATA IMAINIU, 1 = 1.9) /6HCALL , 6lt I NPUTT.6HCALL ,6HE!!ECTH, 

GNL 

15 


00OOI6 

000 

1 6IIG0 TO ,6111 ,6H£N0 ,6H .6HIMPUTG / 

GNL 

16 


OOODIT 

DOO 

DATA tLOGICTdl, I = 1,121 / 6KLN0DE ,6H *: .TR,6RUE. ,6IILC0ND 

,GNL 

IT 


ooooie 

000 

1 6H = ,TR,6HUE. ,6HLC0NST,6H = .TR,6HUE. ,6HLABRAV. 

GNL 

IB 


000010 

000 

2 6» = .tn,6HUE. /, (LOGICF(I), 1 = 1,2) /6H = .FA,6RLSE. 

/GNL 

19 


000020 

coo 

DATA LO /6HSIKDA / 

GNL 

20 


000021 

ooo 

ConnON/SRDCOPt/ZDVI 235 l.NRNSFRC 221 



1 

000022 

000 

LCCNSi=^PCONST 

GNL 

21 

H 

000023 

000 

LABHAV=PABRAV 

GNL 

22 

' o\ 

00002*1 

ooo 

L5TABT=,TH0E, 

GNL 

23 

000025 

000 

IMAGE! 1 )=L0 

GNL 

29 


000036 

ooo 

CALL BLKCRO 

GNL 

25 


000022 

ooo 

IF { GENERL 1 MAIN! 2 )=MA 1 Nf 9 I 

GNL 

26 


* 00002B 

ooo 

NKa=KND«NKA 

GNL 

2T 


000029 

ooo 

n = NNT 

GNL 

2B 


000030 

ooo 

I2=KN0 

GNL 

29 


000031 

003 

I3=NNT 

GNL 

30 


000032 

ooo 

19=NGT 

GNL 

31 


000033 

000 

I5=NCT 

GNL 

32 


000039 

coo 

I6=LENA 

GNL 

33 

Q.% 

000035 

000 

t2=LSE0l 

GNL 

39 

000036 

ODO 

IflsLSEOa 

GNL 

35 

000032 

000 

IF (PNODE) GO TO IQ 

GNL 

36 


000030 

ooo 

M = 1 

GNL 

3T 

000039 

ooo 

12*1 

GNL 

38 

0000*)0 

ooo 

13*1 

GNL 

39 

0000*)! 

ODO 

12 = 1 

GNL 

90 

©.it 

0000*12 

ooo 

LOGICTt 2)=L0G1CF< 1 ) 

Gnl 

91 

000093 

ooo 

LOGICTI 31=1 OGtCF( 2) 

GNL 

92 

000099 

ooo 

10 CONTINUE 

GNL 

93 


000095 

000 

IF (PCONOl GO TO 20 

GNL 

99 

000096 

ooo 

19 = 1 

GNL 

9S 

00009T 

ooo 

12 = 1 

GNL 

96 

000098 

000 

LOGICHS )=L0G1CF( 1 ) 

GNL 

9T 


000099 

000 

LOGtCTCe )=L0GICF(21 

GNL 

98 


000050 

ooo 

20 CONTINUE 

GNL 

99 


00005 1 

030 

IF (PCQHST) GD TO 30 

GNL 

50 


000052 

ooo 

15 = 1 

GNL 

51 


000053 

000 

LOGICTI 8 )=LOGrCF( 1 ) 

GNL 

52 


000059 

ODO 

LOGICTI 9J=L0GICF(2) 

GNL 

53 


OOOG55 

000 

30 CONTINUE 

GNL 

59 


s-ik-j orighjtal pags 

OP POOR QUAIOT 


CE>tUriK/PB 


DATE 02Z87!> 


PAGE 


2 


D00056 

OQO 

IF CPAHEAV) GO TO 90 

GNU 

55 

00O1S7 

000 

I6sl 

BNL 

56 

0001.58 

000 

LQGICTllt )°U0G1CF( 1 ) 

GNL 

57 

000059 

000 

UOGICTl 12)=t.QGlCF(21 

GNL 

58 

000060 

• 000 

90 CONTINUE 

GHL 

59 

000061 

000 

IF (NNO.EO.O) 12=1 

GNL 

60 

000062 

000 

CALL CLRWEC 



000063 

000 

ENCODE (lOO.NRNSFRl T1 , 1 2, 1 3j 19 , 15, 16 



000069 

ODD 

LCOPV=. FALSE, 

GNL 

63 

000065 

000 

CALL BLKCRO 

GNL 

69 

000066 

OOO 

IF (LSEQZ.EQ.O) 18=1 

GNU 

65 

00006T 

000 

CALL CLAVEC 



000068 

000 

ENCOOE tllO,NnNSFH) 17,18 



000069 

000 

CALL DLKCRD 

GNL 

67 

000070 

001 

CALL FLOCOn 



OOOOTI 

000 

00 70 1=1,12,3 

GNL 

68 

000072 

000 

NU=NII4'I 

GNL 

69 

C00073 

000 

KDLK<NU)=nAIN(6) 

GNL 

TO 

000079 

OOO 

J = I*2 

GNL 

71 

000075 

000 

00 50 K=I,J 

GHL - 

72 

000076 

OOO 

HU=NU»l 

GNL 

73 

000077 

000 

KBLKINU l=LQGICT(K > 

GNL 

79 

000078 

OOO 

50 CONTINUE 

GNL 

75 

000079 

OOO 

00 60 K=1.10 

Gnl 

76 

OOOOSD 

OOO 

NU-NU*l 

r GHL 

77 

ooooei 

OOO 

KBLKI NU7=nAINI 61 

GNL 

78 

000002 

OOO 

60 CONTINUE 

GNL 

79 

000003 

OOO 

TO continue 

GNL 

80 

000009 

000 

00 90 1=1, 7, 2 

GHL 

81 

000085 

OOO 

«VJ=NU+l 

GHL 

02 

000006 

OOO 

KBLKi NU)=nAlN( 8 1 

GNL 

83 

000087 

OOO 

IF II.EQ.l} KBLK(NU1=MAIN( 6 ) 

GNL 

89 

000008 

OOO 

NU=MU*l 

GNL 

85 

000089 

OOO 

XBLKC NU)=t1AIN( t 1 

GNL 

86 

000090 

000 

nu=Nu*i 

GNL 

87 

000091 

OOO 

KBUKl riu )=I9AINI t + 1 1 

GNL 

83 

000092 

OQO 

DO 80 J=t,lt 

GNL 

69 

000093 

OOO 

()U=NU*l 

GNL 

90 

000099 

OOO 

KBLK(NUl=nA1Nt01 

GNL 

91 

000095 

OOO 

80 CONTINUE 

GHL 

92 

000096 

OOO 

90 CONTINUE 

GHL 

93 

000097 

OOO 

RETURN 

GHL 

99 

D0009S 

OOO 

C 

GHL 

95 

000099 

000 

too FORnAT (6X,10HOinENStON , 2UT( , 15 , 2H 1, ,2HCt , 15. 2K ), , 2HQI ,T5 , 20) , 

.2HGNL 

96 

OOOIOQ 

000 

1G( ,IS,2H1,2HKC ,I5,2H|,.2HAt , 15 ,2H 1, 1 9)£ > 

GNL 

97 

□OOlOl 

000 

110 FOONAT (5X.6nlSEQtf ,T5,7U),SG02I ,I5,lH),5Slri 

GNL 

98 

000102 

OOO 

ENO 

GHL 

99- 

EMD ELT, 






•j 



•KDG,P GFPPNT 



r 



enT“cr 



/ 

^ DATE 022875 FflGE I 



*ELT,L 

GFPRNT 



ELIOTT 

RLIBTO 02/28-031 

i20t0i-n,» 


OQOOOl 

000 

SUBflCUTINE GFPRNT 


000002 

000 

connoH / FLOUG / GFt n 

7 ' 

000003 

000 

COnnON / FDinNS / NTVPE, HSV5, NIB 


OOOOO'I 

000 

CALL GENOUT C GF, t 'OFLOU CONDUCTORS* ) 

•1 

000005 

ooo 

RETURN 

rr 

OOOOQ& 

000 

END 


EllB ELT. 


•ilDG,P QOPLOT/A 


« 







cn: crr3 c:^ 


GOPLOT/« 


/ 


DATE 022S7S. t»H6E i 


•ELT,L BOPLOT/A 

EttOTT BLIBTO 02/28-03(20:02-1 ) 



000001 

000 

SUBROUTINE GQPLOTCNSyPll 


000002 

000 . 

OmGNSION ASVni 50 1 rosvnc 50 1. BUFBC 4000 1 l.QHIlt 1 1 


000003 

000 

COnnON !JPTS»TPG,BUFH 


000004 

000 

EQUI VALENCE (BUFRt 11,AB5( 1 >),(BUFR( 2001 ],0RD( i>) 


000009 

000 

INTEGER ISVratai 


000006 

000 

ORTA ISVM/6H1234 ,6H / 


000007 

ooo 

FHP = N5Vn*2 + 6 


OOOOOS 

000 

DT = ABSI NPTS) - ABSt 1 > 


000009 

000 

NP = FHP • DT/TPG +1.5 


OOOOlO 

000 

HPP = NP - 1 


COOOIl 

000 

K = MPTS / HPP 


000012 

000 

ASVni 11 = ABSt 1 1 


000013 

000 

osvni 1 1 = oHoc 1 1 


000014 

000 

ASVniHPl = ABSt NPTS 1 


000015 

000 

QSVMINPI s OROtNPTS) 


000016 

000 

XK = 0 


000017 

000 

00 10 I = 2,NPP 


QQOOia 

000 

KX = KK + K 


000019 

001 

1X=NXVI AB5< XX ) 1 


000020 

001 

IY=NVV( OBDl KK 1 1 

t) 

t 

000021 

001 

CALL RITE2VI I X , I V, 1023, 90, 1 , 1 ,NSVt1. TSVf1,NL 1 

000022 

OOl 

10 CONTINUE 

H 

(.90023 

001 

]Xft=NXV( ABSI 1 1 ) 

jr- 

009024 

001 

IVA=ftyVtOROt 1 1 1 

vo 

000025 

001 

00 15 1 = 2, NPTS 


000026 

001 

IXB=NXVI ABSI I ) 1 


00002T 

001 

1VB=NVVI OROl I 1 1 


000023 

001 

call LINEVI IXA.IVA.IXB, tVBl 


000029 

001 

IXA=tXB 


000030 

001 

1¥A=1VB 


000031 

001 

15 CONTINUE 


000032 

000 

RETURN 


000033 

000 

END 


EKO ELT 

• 



<*1)05, P 

KSTFLO 




■■,». 

■J 


Dr-150 


HSTFLtS 


DRTE 022975 


PAGE 


4ELT,t 

HSTFUO 


• 

ELTOTT 

BLtBTO 02 

/28- 

■03v20s05-(5, J 

ooooai 

005 


SU9R0UTINE HSTFLO (TINC) 

000002 

000 

c 


000003 

000 


cnnrrOK /tew / Tt I ) 

OOOOON 

001 


connoN /UDOT / ut i i 

000005 

001 


COnnOM /VAUVP / vpt n - 

000006 

001 


connOM /PRESS / P( 1 1 

OOOOOT 

001 


COnnOK /DEETap/ DPdl 

OOOOOB 

001 


COnnON /PDirjTrl/ LNODE, LCQUD, LCQNSi LATinAV, U 

000000 

000 


COnnON /XSPACE/ HtJin, nth, NEXTC l 1 

ODQOlO 

ooo 


COnnON /PTXCON/ CONlll 

oooou 

ooo 


COnnON /TITLE. / HE0DEnil2) 

000012 

000 


ConnON /DinENS/ NNA. NKD, NSt 

000013 

OOl 


connDB /FDinris/ ntvpe, nsvs.- >(tb, hp, nv 

OOOOlU 

ooo 

c 


000015 

000 


DATA KK / 0/ 

000016 

ooo 


GATA LL / 0/ 

000017 

ooo 


DATA LT /23/ 

ooooia 

ooo 

c 


000019 

ooo 

c 


000020 

001 


OT = CDNt21 

000021 

001 


IP CKK ,GT, 0 1 BO TO 10 

000022 

001 


Nu = naxoc i.ntbi 

000023 

001 


NPR = r1AX0(l,NP) 

000025 

OOl 


Nvp = naxoc i.Nvi 

000025 

ooo 


IF! INODE .EO. OJ CALL NNHEADtl J 

000026 

OOl 


IF ILTB .EQ. 01 CALL HNBEAOtSI 

000027 

OOl 


URITE ILT) HEADER, ILL, 1=1, 51, NU,NPH, NVP, LL,LL,I 

000023 

001 


INSL,CNEXTCLT6*1 1 , I = 1 ,NU 1, t NEXT! LPR + ! ), 1 = 1, NFR) 

000029 

003 


2INEXT(LVP + I l,l = l.NVl.IHEXT(LHODE*t ),l = l,N5Lt 

000030 

ooo 


TlnEZ = 0.0 

000031 

ooo 


Tinei = CQN< 131 ♦ C0N'21 

000032 

ooo 


CALL HSTTPt TinEll 

000033 

ooo 


KK = 1 

000035 

ooo 


GO TO 50 

00003S 

' ooo 


10 TIME2 = TlrtEE • or 

000036 
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SUBROUTINE IMBED 
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000 

c 


000003 

000 


COMMON /BUCKET/ IB(ll 
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OOO 
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000000 

OOO 


COnnOM /POINT f LOCC20I, LEHC20) 
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OOO • 


DIMEMSIOH KEVAl 9 )/2H*A, 2H*K, 2H*T, 2H*G/ 

000007 

OOO 
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000008 

OOO 

c 


oooooo 

000 


LI = LOCI m 

OOOOIO 

OOO 


L2 = LENI 131 + H -1 

OOOOll 

OOO 


MM = LOCI 19 ) 
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QOO 


M2 = LOCI 15 » - 1 

000013 

OOO 


DO 500 n=Ul,L2 

OOOOt<i 

OOO 


Ml = M2 * 1 

000015 

OO'J 


M2 = (12 * iBi nm 

000016 
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MM = MM + 1 

OOOOIT 

OOO 


KEV = 6H 

OOOOIS 

OOO 


DO 900 J=Ml,M2 

000019 

OOO 
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000020 

000 


DO 10 K=l,9 

000021 

OOO 


IFIKEV .£0. KEVAIKH GO TO 90 

000022 

000 


10 pONTtNUE 

000023 

OOO 


GO TO 900 

000029 
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90 NUn = IBI 1 1 

000025 

OOO 


CALL CONVRTI 12,30, NUM.CAOEBB 1 

000026 

OOO 


IF ICB0ERR1 GO TO 380 

000027 

coo 

c 


000028 

OOO 
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c 


000030 

OOO 

c 

AB8AVS 

000031 

ooo 

c 


000032 

ooo 


100 L= 1 

000033 

ooo 
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000039 

ooo 


1ST = LOCI 13) 

000035 

ooo 


lEND a 1ST + LENI 131-1 

000036 

ooo 


DO 190 JJ=IST,IENO 

000037 

ooo 


IFCNUM .EQ. tBtJjn GO TO 390 

000038 

000 


L = L • TBI LL) 

OOOu 39 

ooo 


LL a LL + 1 

000090 

ooo 


190 CONTINUE 

000091 

ooo 


GO TO 300 

000092 

ooo 
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000093 
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c 
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000099 

ooo 

c 


000095 

ooo 
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000096 
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000097 

000 
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000 

c 


000099 

000 
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000050 

ooo 
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000 
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000061 
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000062 

000 


300 
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000063 
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HN = I - ni + t 
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000 
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000065 
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000 
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000 


COnrtON /FLOQAT/ FLOUt 1 > 
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000 


CDIinOH 7SVS0AT/ SYSTEUt 15,11 

000005 
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COntlON /TVPDAT7 TVPEU0,11 

000006 

000 


COnnON /UDOT / ulc 1 ) 

000007 

000 


CQFinON /PRESS / P(l) 
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000 


COnnOM /FLOUG / GFll) 

000009 

000 


COftnoN /VALVP / VP<1> 

OOOOlO 

000 


CormoN /uoon / uKi) 

000011 

ooo 


COnnOH /FLOUR / AFRCn 

000012 

000 


COnnON /OELTAP/ DPI 1 ) 

000013 

ooo 


INCLUDE conn, LIST 

OOOOIH 

000 


dihension Dunnvr i i 

000015 

ooo 


eouivalence 1 Dunrivi 1 i.und), CDunny(9),LENA) 

000016 

ooo 


conoou /LOGIC/ LnDBE,LCONO,LCBNST,LABRAV 

000017 

ooo 


logical LNCDE,LCONO,LCOrJST,LARRAy 

ooooia 

000 


logical ptitle 

000019 

ooo 


INTEGER recall 

000020 

ooo 


DATA RECALL /6HRECALL/ 

000021 

ooo 


DATA IEND/3EtEND/, IN 1 T/6H t Nl TI A/ , IFIN/5HFINAL/ 

000022 

000 


LB30=12 

000023 

ooo 


N0UT=6 

000029 

ooo 

10 

CONTINUE 

000025 

000 
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000026 

000 


read (LB3B> ioent 

000027 

000 


IF ( IOENT. EQ.IFINl GO TO 505 

000023 

ooo 


IF nOENT.ED.lEHOI GO TO 150 

000029 

ooo 

C..nEGULBR RUN OR INITIAL PARAnETERS 

000030 

ooo 

c 

TITLE 

000031 

000 


READ fLQSOt (K( I 1,1 = 1,201 

000032 

ooo 

c 

NOOE INFO 

000033 

000 


READ tLB30J HN0,«NA,NNT,( Tt n,!sl,NHT> 

000039 

ooo 


IF INND.EO.OI GO TO 50 

000035 

ooo 


read <LB30I ( Cl n,1=l,NNDI 

000036 

000 

50 

CONTINUE 

000037 

ooo 


nno=nnd*nna 
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DO 60 t=l,NNT 

000039 

ooo 


0(11=0.0 

000090 

ooo 

60 

CONTINUE 

000091 

ooo 

C 
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000092 

ooo 


READ 1 L33D 1 NGT,( G( n. Isl.NGTl 

000093 

000 

c 
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000099 

ooo 


READ <L330t NCT,( CONt I 1, 1 = 1 ,50 t 

000095 

ooo 


IF (NCT.EQ.Ol GO TO 120 

000096 

ooo 


READ (LD3D1 ( K( I 1 , t = 1 ,HCT ) 

000097 

ooo 

c 

ARtlAV info 

000096 

QDO 

120 

CONTINUE 

000099 

ooo 


READ (LS3D I NAT, LENA 

000050 

ooo 


IF tlENA.EQ.01 GO TO 130 

000051 

000 
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000052 

ooo 

C 
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000053 
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000055 
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000 
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CONTINUE 

000069 

000 


HEAD CLD301 LSO 1 .LSQ2, ( NS01 ( I ) , 1 = 1 .LSQl ) 

000065 

QOC 
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000 
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000073 

000 
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000079 

000 
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000 
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000 
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000077 

000 
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000 
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000 
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IF (NSQU J1 l.GT.Ol CO TO 185 
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000 
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CONTINUE 
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000 
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000 
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CONTINUE 
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000 
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000 
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000093 

000 
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000099 

OOO 
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CONTINUE 

000095 
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000096 

OOO 
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000097 

000 
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CONTINUE 
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OOO 
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OOO 
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CONSTANTS CHANGES 
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000112 

OOO 

C 

ARRAY CHANGES 


DftTE 022875 




000113 

000 

560 
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IF tJJ.EQ.C) Gl 
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000 
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000 
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000 
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CONTINUE 
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000 
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URITE (N0UT,9O( 
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OOOOlO 
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OOOOIl 
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1H7, IHB. 
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L = 0 




000016 

ooo 
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CALL SKPaiJSUJ 




000017 

ooo 



GD TQI 150,4401, JSU 




000018 

ooo 
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IFCKARDIKOL) .HE. UK 1 GO TO 240 




000014 

ooo 



KQL = KDL ♦ 1 
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ooo 



CALL SUBNlNFLt, ISUl 
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ooo 
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000022 

000 
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KOL = KOL + 1 



1 

000023 

000 
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ooo 
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160 

KOL = ttOL * 1 




000026 

ooo 



CALL SUBfK HFLJ.ISm 




000027 

ooo 



GO T0( 165,375,305,430,450), ISW 




000028 

ooo 
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KOL = KOL ♦ 1 




000029 

ooo 



CALL SUOrjCNTLJ.lSU) 




000030 

ooo 



GO T0( 170.375,305,430,450 », ISU 




000031 

000 
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11 = 1 




000032 

ooo 
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000 
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ooo 



IF(NTLJ .LT. H7LT) 12 3 -1 
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000 



tF(KARD(XOL) .EO. 1H)1 GO TO 100 
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000 
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000 
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100 
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1 7» • . • /I 
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000050 

000 
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lF((JJTLJ-f(TLI 1/12 .EO. I MFL J-MFL t 1/ 1 11 GO TO 220 
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GO TO 930 
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000 
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UHP(L*l ) = I 





000060 

000 



L«P<L+2) = J 





000061 

000 
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000 
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000 
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CONTINUE 
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IFIKRROIKQLl .EQ. INTCIC(t)) GO TO 300 


- 
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000 
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IF tKAROt K3L*l l.NE.IHNl CO TO 259 
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IF (KARD(K0Li'2>.EQ.lHD) GO TO 935 
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000 
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000 
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J = KOL * I 
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000 



DO 260 KQL = J.nXK01. 
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000 



IFtKARDIKOL) .EO . IH, ) GO TO 270 
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000 
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CONTINUE 
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000 
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000 
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000 
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000 
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000 
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000 


260 
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000 
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000 
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000 
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000 
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000 
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000 


305 
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000 
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000 
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000 
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000 


tF( lUWIT .EP. 0) lUNIT = 7 


00001^ 

000 


PEUIND KT 


000015 

000 


KODEl = 0 


000016 

ooo 


IFdJTAPE -LT. 0) KODEl = 1 


oooou 

ooo 


rjTOPE = lOBSCNTOPE ) 


OOOOlB 

000 


IFtKODEl .HE. 0 ) 'RFAO(5,27l (XSTORTd), XSTOP( t), I = t,MTAPE> 


000019 

ooo 


IFCK0DE2 .HE. 0) PEAO(5.190) ADO 


000020 

ooo 

190 

FORMAU 7FIO.0) 


00002I 

000 

27 

FOflnOK I9F5.31 

fcj 

000022 

000 


DO 10 L = I.NTAPE 


000023 

000 


n=o 

H 

000029 

000 


I = L ♦ lUNIT - 1 


000025 

ooo 


REUIND 1 


000026 

ooo 


REODt I > «HBUFR( J »,J = l,26 1, NSL. ( DATA( J ), J= 1 ,NSL ) 


000022 

ooo 


N8UFRI 271 = NSL 


Q0002B 

ooo 


IF 1 L .NE. 1 ) GO TO 8 


000029 

ooo 


unitE(KT) NauFR, lOATAt J).3=t,NSL) 


000030 

ooo 


NTOTAL s 0 


000031 

ooo 


00 6 J=|7,2T 


000032 

ooo 


HTOTAL = NTOTAL + M80FB( J ) 


000033 

ooo 

6 

CONTINUE 

>ps». 

0Q0G39 

ODO 

9 

READ (I) TIME.* DATAC K ),X=1,NTQTAL) 


000035 

oco 


TINE = TINE + A00(L1 


000036 

000 


IF (TINE .LT. 0.0 .AND. L .ME. NTAPE ) GO TO 15 

© 

000037 

ooo 


IF tTItlE .LT. 0.0) GO TO 10 

eS 

000038 

ooo 


1F< TlnE-XSTART(U > )9, 

000039 

ooo 


1F( XSTOPlL »)33,33 

sd ^ ^ 

000090 

000 


IF( TIP1E-X5T0P(L 1 133, 

^ tr 

000091 

ooo 


TinE=-TIflE 


000092 

ooo 


|F(L-NTAPE)IS,10, 

c5 tp" 

000093 

ooo 

33 

nipi-i 


000099 

ooo 


IF(M .GT. 01 GO TO 9 

lli4 'Ij 

t' ra 

000095 

ooo 


n = IMP 

t-H 

000096 

ooo 


UTIflE = TinE 

" t3 fn 

000097 

ooo 

10 

UBtTE(KT) TINE, ( DATA! K >,Ksl , NTOTAL 1 


000(190 

ooo 


IF (TIMEl 12.9,9 


000099 

ooo 

8 

READ 111 TIflE,(OATA(K),K=l, NTOTAL) 


000050 

OQO 


TTflE = TINE * ADO(L) 


000051 

000 


1F( TlPIE-XSTARTt L 1 18, 


00O05Z 

000 


1F« TlnE-XTINE 121,9,10 


OO0O53 

ooo 

21 

URITE (6,291 


000059 

ooo 

29 

FORPIAT ( //10X39HTAPES ABE NOT IN THE CORRECT 0RDEH) 


000055 

OQO 


CALL EXIT 






(iFsn 


/ 


OftTE 0228T5 


«ELT,L MFStJ 

ELT0T7 ttLIBTO 0272B-03i 20 ■ 20-( 0, > 


OOOOOl 

COO 



SUBROUTINE nFS01A,N,$> 

000002 

000 



DinENSION A( U 

000003 

000 



OOU0UE PRECISION DPIV, OSOPl 

ODOOO<l 

ooo 

c 


IN1TIRLI2E DIAGDNflL-LOQP 

000005 

000 



KPIW = 0 

000006 

000 



DO 11 K=1.N 

OOODOT 

000 



KPIV = KPIV * K 

Qooooe 

000 



IND - KPIV 

oooooo 

000 



LEND = K - 1 

OOOOlO 

000 

c 


START FftfTOBIZATION-LOOP OVER K-TH ROU 

OOOOtl 

000 



DO 11 I=K,H 

000012 

000 



osun = O.DO 

000013 

000 



IFILENO) 2,5,2 

000015 

000 

c 


STftRT inner loop 

000015 

000 


2 

DO 3 L-1,LEND 

000016 

ooo 



LRHF = KPIV - U 

000017 

000 



LIND = INC - L 

OOOOlO 

ooo 


3 

DSUn = DSUn ♦ A(LANF)*AILINO) 

OOOOlO 

ooo 

c 


TRANSFORU ELEnENT A« IHO 1 

000020 

000 


5 

Dsun = Ai IND » ~ osun 

000021 

000 



IFCI-K) 10,5,10 

000022 

ooo 

c 


TEST FOR negative PIVOT ELENENT ANO FOR LOSS CF SIGNIFICANCE 

000023 

000 


5 

iF(DSUn) 12,12,5 

000025 

000 

c 


COnPOTE PIVOT ELEHENT 

000025 

ooo 


5 

DPtV ^ OSORTI DSUm 

000026 

ooo 



AIKPIV ) = DPIV 

000027 

QQO 



0P1V = KOO/OPIV 

000020 

000 



GO TO n 

000020 

ooo 

c 


CALCULATE TERNS IN BOU 

000030 

ooo 


10 

A(IND) = DSUn«DPtV 

000031 

ooo 


u 

INO = IND ♦ t 

000032 

ooo 



RETURN 

000033 

ooo 


12 

RETURN 3 

000035 

000 



END 

END ELT. 






«HDSrP NNREAO 


j}-i73 ORIGB^L PAGE IS 

Of POOR QUALOT 


NMREAD 


/ 


DOTE 0228TS 


«ELT.L NNHEAH 

EtTOTT HLIB70 0272S-03 : 20:2 1-( 2, ) 


QOOOQI 

000 


SUBROUTINE NNRCADCfn 

000002 

ooo 


INCLUDE conn, LIST 

000003 

001 


CcnnON /FOIMNS/ MTYPE, NSVS, NIB, NP, 

000000 

001 


COnnOH /POINTN/ LNODE, LCQHO, LCONS, 

000005 

001 

c 


000006 

001 


DATA LNODE, LCONO, LCONS, LARV, ICOMP 

OOOOOT 

001 

c 


ODoooa 

001 

c 


000000 

000 


LUTI = 9 

0O001O 

000 


REMINO LUTI 

oooon 

000 


L = NTH+MOIM 

0000}2 

000 


J = L-NHT’^1 

000013 

001 


GO TO (5,^'5,15,20,30 J.H 

OOOQIO 

ooo 

5 

NO in = NOm-NHT 

000015 

000 


IF(NDin.LT,0 ) CO TO 90 

000016 

ooo 


HEADILUTII NNT,(X(n,I = J.L1 

000017 

000 


DO 8 1=J,L 

000018 

ooo 


FLO( 1,2,X( in=o 

000019 

ooo 

s 

CONTINUE 

000020 

OQD 


LNODE = J-1 

000021 

000 


RETURN 

000022 

OOO 

10 

NOIn = NDtn-NGT 

000023 

000 


Ifl NOln.LT.O ) GO TO 98 

000029 

000 


HEADfLUTll «NT,(2,I = J,L) 

000025 

000 


J = L-HGT*I 

oooo;l6 

000 


BEAO(LUn) NGT.IXCIUI a J,L) 

000027 

000 


LCONO = J-l 

000028 

ooo 


RETURN 

000029 

ooo 

15 

NOln = NOin-HCT 

000030 

ooo 


IF( HDin.uT.O ) GO TO 90 

000031 

000 


IF ( KDN1 31 1.E0.2 > GO TO 17 

000032 

ooo 


READILUTI) NNT,(2,t = J,L1 

000033 

ooo 


J = L-NGT+1 

000039 

000 


READILUTI! NGT,(2.r = J,LI 

000035 

000 

IT 

CONTINUE 

0QOO3A 

ooo 


J = L-NCT+1 

000037 

ooo 


READ ILUTll 2,NCT,( XM >,1=J,L ) 

000038 

000 


LCONS = J-l 

000039 

000 


BETUR7* 

000090 

ooo 

20 

NOin = H0m-2*NAT 

000091 

ooo 


IFI NOln.LT.O t GO To 98 

000092 

ooo 


IF (KCNI 31 ).EQ.21 GO TO 22 

000093 

ooo 


READILUTI) NNT.tZ.I = J,L! 

000099 

ooo 


J = L-NGT*I 

000095 

ooo 


READILUTI! NGT,tZ.I = J.L! 

000096 

ooo 

22 

CONTINUE 

000097 

ooo 


IF INCT.EQ.O ) GO TO 23 

000098 

ooo 


J - L-NCT*I 

000099 

ooo 


READ ILUTll Z.NCT.I Z, I=J,L > 

000C50 

- ooo 

23 

CONTINUE 

000051 

ooo 


J=L-2-NAT*l 

000052 

ooo 


L=J«NAT-I 

000053 

ooo 


READILUTI) NAT, 1X1 1), I * J,L1 

000059 

ooo 


LARRV = J-I 

000055 

ooo 


J=L*1 


icon?, UTB. LPR, 
, LPR, LV / 8*0 / 


LV 


PAGE 




HMHEKD 

000056 

000 


Ls:J+HAT-l 

□00057 

000 


READ (timi NAT,( I l,IaJ,L 

000058 

000 


L = 1 

000059 

000 


DO 25 1 = t,NAT 

000060 

000 


Loc=LnnRy+NflT»i 

000061 

000 


J = NX(LDC> 

000062 

000 


NX( LDC 1 - L 

000063 

000 


L = L+J 

000069 

000 

25 

C0J7TIN0E 

000065 

000 


return 

000066 

001 

C FLQU DATA 

000067 

001 

30 

Noirt = NOm - «T0 - NP - NW 

000068 

001 


IF tNOin .LT. 0) 60 TO 98 

000069 

001 


BEAD (LUTII HNT,(Z,I=J,L> 

0O0070 

001 


J = L - NOT * 1 

OOQOM 

001 


BEAD {UUTI 1 «GT,tI,l=J,L > 

000072 

00| 


IF CNCT -EO. 01 GO TO 33 

000073 

001 


J = L - NCT ♦ 1 

0DOO79 

001 


read (UUTI I Z,HCT,( Z, I=J,L 1 

000075 

001 

33 

J = L - NAT ♦ 1 

000076 

001 


READ (LUTll NAT.C Z, |=J,L 1 

000077 

001 


READ CLUTI) NAT.C Z,I=J.L ) 

000070 

001 


J = L “ NT6 - HP - NV * 1 

000079 

001 


L = J ♦ NT0 - 1 

000080 

001 


BEAD CLUTI 1 (Zl I),1 = J,L1 

000001 

001 


LTD = J - 1 

000002 

001 


J = L 1 

000003 

001 


L = J * NP - 1 

ooeoai 

DOl 


READ (LUTI > { X( I 1, l=J,L1 

000005 

001 


LPH = J - 1 

000006 

001 


IF CMU .ED. 01 RETURN 

000007 

001 


J = L ■* 1 

000088 

001 


L = J ■» WV - I 

000089 

001 


BEAD (LUTll (X(l I,I = J,L1 

008090 

001 


LV = J - 1 

000091 

0D| 


RETURN 

000092 

000 

98 

UntTE(6,99) NO{n 

000093 

000 


CALL EXIT 

000099 

000 

99 

FORHATI 13H NNREAD SNORT. IS,: 

000095 

000 


FND 

END Ptr, 





DftTE 022875 


P8GE 


dllOG.P NTSOL 


JD-175 


HTSOL bate 022875 PAGE 

AELT.U HTSOL 

ELTOTT RL1D70 02/2S-03 1 20 1 23-tl , 1 


000001 

000 



SUBPOUTIKE HTSOL (L191 

000002 

000 

c 



000003 

000 



LOGICAL COP, FIRST 

OOOOOH 

000 

c 



000005 

000 



OinEHSION .nOATAI 1 ) 

oooooo 

000 

c 



000007 

000 



COnnoN' /PDINTN/ LNOOE. LCOHD, LCONS, LAHAT, ICOtlP, LTB, L 

000008 

000 



COnnON /FL0DAT7 HBATA CIJ 

000009 

000 



COntiCH /MOOT 7 U ( 1 ) 

OQOOIO 

000 



COnmOH /POESS / P tl) 

OSOOll 

ooo 



ConnoN /FLOUG / GF ( 1 ) 

000012 

000 



COnnOM /FLOUR / AFR <11 

000013 

ooo 



cannon /oeltap/ dp in 

000019 

000 



connon /fqata / cop, uro, nbo, ro, lho. nmu, xmu, gc 2 

000015 

ooo 



cannon /forta / tdl, nxPASS, frdf 

000016 

000 

c 



000017 

ooo 



COnnOM /XSPACE/ HDln, NTH, HEXTl 1 ) 

000018 

ooo 

c 



000019 

ooo 



equivalence ( ROATA, HOATA ) 

000020 

ooo 

49 



000021 

000 

c 



000022 

000 



L20=NDATA(L19 1-3 

000023 

ooo 



L25 = NTH ♦ 1 

00OO29 

ooo 



NEXT<L2S > = NOin 

000025 

ooo 



NPRN = 0 

000026 

000 



FIRST = .TRUE, 

000027 

000 



EFROF = 1 .0 

000028 

ooo 

c 



000029 

ooo 

c 

PASS LOOP 

000030 

ooo 

c 



000031 

ooo 



00 990 HPASS^l.nXPASS 

000032 

ooo 



Dunx = 0.0 

000033 

ooo 

c 



000039 

ooo 



IFI .HOT. COP > GO TO 970 

560035 

ooo 



IFC.HOT. FIRST) CALL TOPLIN 

000036 

ooo 



CALL LIHECK(9 I 

000037 

ooo 



UBITEI 6,960 1 HPASS, M0STA(L19*1) 

000038 

ooo 


960 

FORnRTl ///I2H « • • PASS IS, 13H FOR NETUORK A6, TH * « 

000039 

ooo 

c 



OOOONO 

ooo 

c 

TUBE LOOP 

000091 

ooo 

c 



000092 

ooo 


970 

00 520 J=9,L20,9 

000093 

ooo 



K = L19 * J 

000099 

ooo 



HTB = NDATAI K » 

000095 

000 



HFRO = HOATAl K*l ) 

000096 

ooo 



NTO = MOATAI IC*Z 1 

000097 

ooo 



XOAT = «DRTA(K+31 

000098 

000 

0 



00009 9 

ooo 



IFIFIRSTI GO TO 975 

000050 

ooo 



NFRn = NEXT! L25*riFHn> 

00005 1 

000 



HTO = NEXT(L25«NT0I 

000052 

ooo 

c 



000053 

ooo 


975 

IFI .NOT. COP ) GO TO 500 

000059 

ooo 



CALL LinEC*! 31 

000055 

ooo 



UAITEl 6,980 j HEXTf LtB*NT5 ), NEXT! LPR-*HFfln ), HEXTl LPB+Ntd » 


1 


KTSOL 


/ 


D«TE oazars 


PAGE 


2 


Q000E6 

000 


1 KDAT, UtNTBt 


000057 

000 


980 F0BMAT7// 7* 7HNT& = IlO . 8X THNFBn = 

tio , 

000050 

000 


1 ax 7HHT0 =110 , 8X THKDflT =110 , 8X 7H«INTB1= 

G13.B 1 

D00Q59 

000 

c 



000060 

000 


500 IFtKOATI 505,501,510 


000061 

QOO 


501 IFIftFRiNTBll 502,503,502 


000062 

000 


502 CF(NTB) = I.07AFn(NTB) 


000063 

001 


GO TO 515 


000069 

000 


503 GFCrjTB 1 = 0,0 


000065 

001 


GO TO 515 


000066 

000 


505 MTH = NTH + NPHN * 1 


000067 

000 


CAUL 7JTS0L1C -KDAT,U( HTB l,«Fnn,r:TO,OPl 1 


000068 

000 


NTH = L25 - 1 


000069 

000 


CFnJTDI = IHNTBl/OPl 


000070 

000 


1F« .NOT. COP ) GO TO 517 


oooori 

000 


CALL LINFCKI 3 ) 


000072 

000 


uniTEt 6,5061 NPASS,NDATA(1.19 + H 


000073 

000 


506 FORnATt// 23H « • * CONTINUING PASS 15, 13H FOR Nr UORK A6, 

000079 

OOO 


1 7h » • * ) 


000075 

000 


GO TO 517 


000076 

000 


510 CALL FiOHESI KOAT.HTBl 


000077 

000 

c 



000078 

000 

c 

APPLY USER ADDED RESISTANCE TO FLOW COHOUCTOB 


000079 

QOO 

c 



000080 

001 


517 IFlAFRlNTBl .HE. O.OJ GFt NTB » = 1 .0/{ 1 . 0/GF( NTB 1-^AFRt NTB 1 > 

000081 

001 


515 1F(.M0T. FIRST) GO TO 520 


000082 

OOO 


CALL PBN< f)E*T( L25 1,NPHN , HDATAt K + 1 H 


000083 

000 


call PRN( NEXT! L2S 1 , HPBN . NQATA( K + 2l ( 


000099 

OOO 


520 CONTINUE 


000085 

OOO 

c 



000086 

001 


CALL FlBAU NPR7J.U9, 0, 0, 0, EFHOF.OunX, DPO 1 


000007 

OOO 

c 



000008 

000 


IFlOUnx .GT. TOLl GO TO 530 


000099 

OOO 


OO 525 J=9,L20,9 


D00090 

ODO 


K = L19 ♦ J 


OOOQ91 

OOO 


MFRn = N0ATA(K*1 1 


000092 

OOO 


NTO = HDATA1K*2> 


000093 

OOO 


NDATAtK-*tl = HEXT(L2S*NFnrt) 


000099 

OOO 


NOATA)K*Z) = HEXT<L25*HTDI 


000095 

ooo 

c 



000096 

OOO 

c 

CALCULATE PRESSURE DROP IN TUBE 


000097 

ooo 

c 



000098 

QOO 


NTB = NDATA(K) 


000099 

ooo 


NFR71 = HOATAf K*l 1 


OQOlOO 

ooo 


NTO = NOATAt K*2 1 


000 101 

ooo 


OPINTBI s P(NFRn) - PINTOI 


000102 

009 


525 CONTINUE 


000103 

QOO 


RETUR71 


000109 

000 


530 FIRST = .FALSE. 


000105 

OOO 


EFROF = FRDF 


000106 

ooo 


590 CONTINUE 


000107 

ooo 

c 


“ 

000108 

ooo 


CALL TDPLIH 


00 0109 

000 


uniTE(6,5601 N0ATA(L19«1 1, RXPASS, DUnX, TOI. 


OOOllO 

001 


560 FOnnATteSllO* • • SUBROUTINE HTSOL FAILED ^0 CONVERGE 

TO A SOLUTI 

OOOl 1 1 

ooo 


ION FOR PRESSURES FOR NETWORK A6, T|l • « • ft 


000112 

QOO 


2 8x i9HnAxmun passes ' no / 



/ 

HTSOt DATE 022875 


oooua 

000 


3 8* i9nnftxinun 

CHANGE - G13.8 / 

ooo;:*. 

000 


A 8X l9HPinX!m)M 

allowable - G 13.8 > 

0001 15 

000 

c 



OOOUA 

000 


CALL ULKOCK 


oooitr 

000 


CALL OUTCAL 


OOOUB 

000 


CALL GFPRMT 


000119 

000 


CALL EXIT 


000120 

000 

c 



000121 

000 


END 



EMO ELT, 


PAGE 3 


aHDG.P IVTSQLl 


grc-cr 


I . f * 


HTSOLl 

•lEUT.L 

EUT0T7 

NTSOLl 

RLIS70 02728-O3«20t25-(2*1 

OQOOGl 

000 


SUORQUTINE NtS0LI(tl9 .UIN.NPI ,NP0,DP1 » 

000002 

000 

c 


000003 

000 


LOGlCm. COP, FinST 

OOOOON 

000 

c 


000005 

000 


DtnEMSIOri RDOTAI 1 > 

00000b 

000 

c 


000007 

000 


COnnoN /pointh/ LNODE, LCOHD, lcqns, larov, iconp 

OOOOOB 

000 


COnnON /FLOOAT/ NOATA <11 

000009 

000 


COrtrtON /UOOT / U (11 

000010 

000 


COnnON /PHE5S 7 P (11 

OOQOlt 

00 0 


conmorj /flqug / gf id 

000012 

000 


COnnoN /FLOUR / AFR (11 

000013 

000 


COnnoN /BELTaP/ OP (ll 

OOO0I9 

000 


COnnoN /FOATA / COP, LRO , «R0, RO, LtlU, HflU, XJ1U, 

000015 

000 


COntlON /FOATA / TQL, nV“ASS. FROF 

OOOOU 

000 

c 


OOCOI7 

000 


COnnON /XSPACE/ NDIn, lltH, REXT(11 

000010 

000 

c 


000019 

000 


EOUI VALENCE ( RD ATA, NDATA 1 

000020 

000 

c 


000021 

ODO 

c 


000022 

000 


L20=NDATA( LI9 1-3 

000023 

000 


L2S = NTH ♦ 1 

000029 

000 


»EXT( L25 i s NOIti 

000025 

000 


«PRN = 0 

000026 

000 


FIRST = .TRUE. 

00002T 

ODO 


EFROF =1.0 

000026 

000 

c 


000029 

000 

c 

PASS LOOP 

000030 

000 

c 


000031 

000 


00 590 HPASS=t,mPASS 

000032 

000 


Dbinx = 0.0 

000033 

000 

c 


000039 

000 


IF(.NOT. COPl CO TO 970 

0000 35 

ooo 


IF(.H0T. FlflSTl call TOPLIN 

000036 

000 


CALL LINECK(91 

000037 

000 


uniTE(6,9601 NPASS, N0ATA(L19+I1 

000038 

000 


960 FOntlATt ///12H • • • PASS 15, I3H FOR NETUORK A6, 

000039 

000 

c 


000090 

000 

c 

TU6E LOOP 

000091 

000 

c 


000092 

OQO 


970 DO 520 J=9,L20,9 

000093 

000 


K = L19 * J 

000099 

000 


»T0 = NDATA(K) 

000095 

000 


NFBM = NDATAI K+l 1 

000096 

ooo 


STO = NOATAt K*21 

000097 

ooo 


KDAT = NOATAt K*3) 

000098 

ooo 

c 


000099 

ooo 


1F( FIRST! GO TO 975 

000050 

ooo 


«FH(1 = riEXrt L25«(|FRni 

000051 

ooo 


NTG = NE*T( L25*NT01 

000052 

ooo 

c 


000053 

000 


975 1F( .hot. COP) GO TO 500 

000059 

ooo 


Call lthecrc 3 > 

DG005S 

ooo 


URTTE(6,9801 MEXT(ITB*NTB», HEXTI LPH*riFnrl 1, N£XT( 


OftTE 0ZE875 


• •> 


PAGE t 


NTSQLl 


/ 


DATE 022075 


PAGE 


2 


H 



000056 

000 


1 KDAT, UINTB.) 


000057 

000 


900 FQRnMTt// 7X 7HNTB = 110 , 8X THNFfifl = 

no * 

000050 

000 


t BX 7HNT0 a HQ , 0X 7HI1DAT = 110 , 8X 7HUtNTB)= 

G13.0 ) 

000059 

000 

c 



000060 

QQO 


500 IF(KDAT) 505*501,510 


000061 

OQO 


501 tF(AFIKNTBl) 502,503,502 


000062 

000 


502 GFIHTBI = i.O/AFniNTBl 


000063 

002 


GO TO 5tS 


000065 

000 


503 GFINTB) a 0.0 


000065 

002 


GO TO SIS 


000066 

000 


505 HTH = NTH * NPRN ♦ 1 


000067 

000 


CALL NTSOLNl -KOAT.UC HTB J ,NFBn, NTO*DPN J 


000060 

000 


NTH = L25 - 1 


000069 

002 


CF1NT01 = tr(NTBJ/OPN 


oocoro 

OOO 


IFt .NOT. COP J GO TO 517 


oooon 

000 


CALL LlNECKl 3) 


000072 

000 


URITE(6,506 > NP ASS, NQRTA( L |9*1 > 


000073 

000 


505 FORflATC// 23H * • • CONTINUING PASS 15, 13H FOR NETUOPE A6, 

000075 

000 


1 TH * * *) 


0000T5 

000 


GO TO 517 


000076 

000 


510 CALL FLQRESIKDAT.NTB 1 
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000058 

000 



OHENUn=. FALSE. 

PSD 

58 

000050 

000 



NPASS=MPASS+l 

PSD 

59 

000060 

000 



IF ( r/PASS.LT.!B(n+2)t GO TO 50 

PSD 

60 

000061 

000 



NPAS5=0 

PSO 

61 

000062 

000 



NC=NC*3 

PSD 

62 

000063 

ooo 


50 

n=LOCt 17 )+LEI9t 17 1 

PSD 

63 

00006*1 

ooo 



IF (n.GE.LOCt 18)1 CALL FIHOnn flT.flJ 

PSO 

64 

00006S 

000 



IB(rtl=|PCS2A 

PSO 

65 

000066 

ooo 



LEN< 171 = LEMt 17 )*l 

PSD 

66 

000067 

000 



IF (ONENim) GO TO 60 

PSO 

67 

000068 

ooo 



n=L0C( 17 1*LEU( 17 1 

PSO 

60 

000069 

ooo 



IF < n.GE.LOCt 10 1 ) CAUL FINODPl 117,71) 

PSO 

69 

000070 

ooo 



IBtn)i;lPCSZB 

PSO 

TO 

000071 

ooo 



LENt in=LEN( ITl+l 

PSD 

71 

000072 

ooo 

c 


CHECK FDR 0 Fflon SOURCE BLOCK 

PSO 

72 

000073 

ooo 


60 

CONTINUE 

PSD 

73 

00007*f 

ooo 



n=LOC[ 1 )*I-1 

PSO 

74 

000075 

ooo 



NLQlO^FUOt 2 , 1 , 184 ni ) 

PSD 

75 

000076 

ooo 



IF t NUQID.EO.O 1 GO TO 140 

.-*n 

76 

000077 

ooo 

c 


PROCESS tnPRESSED 0 

PSO 

77 

000073 

ooo 



NLfl=.TRU£. 

PSD 

78 

000079 

ooo 



nST=LDC( 2 ) 

PSO 

79 

000080 

ooo 



TtEMD-nST^LENt 2 )-t 

PSO 

BO 

OOOOSl 

ooo 



DO 70 71:nST,nEH0 

PSO 

01 

000082 

ooo 



ITYPEiFU't 0,6.IB(MI) 

PSD 

82 

000083 

000 



IF t ITVPE.EO.O) GO TO 70 

PSD 

83 

000034 

ooo 



NDDNUn^FLDI 6, 15. I 81 n) ) 

PSO 

84 

000085 

ooo 



IF (NODMUn.NE.I) Gu TO 70 

PSD 

85 

000036 

ooo 



nn-M* i 

PSO 

06 

000037 

ooo 



GO TO 80 

PSD 

87 

000080 

ODD 


70 

CONTINUE 

PSD 

03 

000089 

000 


80 

BO TO f 90,100,100,110,120,125),1TVPE 

VERS 

1 5 

000090 

000 


90 

IPCS2A=0 

PSO 

90 

000091 

000 



FID(0,5,IPCS2A1 = ITVPE 

PSD 

91 

000092 

000 



KNun^FLOC 23, 1 3, IB( nn) ) 

PSO 

92 

000093 

000 



FLDt 23,13,tPCS2AI = KNUn 

PSD 

93 

000094 

ooo 



ONENtin:. TRUE. 

PSD 

94 

000095 

000 



GO TO 130 

PSO 

95 

000096 

000 


too 

CALL PCS? t IB(nn).IPC52A,L1TA) 

PSO 

96 

000097 

000 



JTVPe=IT¥PE 

PSO 

97 

000098 

000 



FLOt 0.5 , IPCS2A ) = JTYPE 

PSO 

90 

000099 

000 



ONENUni . TRUE . 

PSD 

99 

000100 

ooo 



GO TO s30 

PSO 

too 

000101 

ooo 


110 

CALL »rS7 f tBt7!n),lPCS?A,LITAl 

PSD 

101 

000102 

ooo 



JTVPE=ITV E 

PSO 

102 

000103 

ooo 



IF tLITA.FJ.ll JTVPE=JTVPE*t 

PSD 

103 

600104 

ooo 



CALL PCS2 t IBtnra*! ). |PCS2B,LITA1 

PSO 

109 

00C105 

ooo 



IF (LITn.EQ.tl JTVPE- JTVPE*2 

PSD 

105 

000106 

ooo 



FLOt 0.5 , 'PCS2A l^JTVPE 

PSD 

106 

000107 

000 



OttENUn- .FALSE, 

PSO 

107 

000106 

ooo 



GQ TO 130 

PSO 

ice 

000109 

000 


120 

1 TYPE=7 

PSO 

109 

0001 10 

009 



GO TO no 

PSO 

no 

0001 1 1 

ooo 


125 

ITYPE=10 

VERS 

5 

000112 

ooo 



GO TO 110 

VERS 

5 


iinii)«tWliiiiiiin 




o6t-q: 




/ 


DATE 022875 


PAGE 


000U3 

000 


130 

«=LOC( l7l*LEm m 

PSD 

111 

ooom 

000 



rr in.GE.LQCc ton call finoah ti7,ni 

PSD 

112 

000115 

000 



TBCn l=tPCS2A 

PSD 

113 

000116 

000 



LENl 17 1=LEfJ( 171*1 

PSD 

114 

OOOlU 

000 



IF (OrJENUni GO TO 140 

PSD 

U5 

000118 

000 



H=LOC« IT )*LEHI 17 ) 

PSD 

116 

ooono 

000 



IF (n.GE.LOtlt 18 >) CALL FINDHD (lT,n) 

PSD 

117 

000120 

000 



IB<n)=tPCS23 

PSD 

118 

000121 

000 



LEW) 17 1=1 EM( IT )+l 

PSD 

114 

000122 

OQO 

c 


PASS THRU NA/NB PAIP5 

PSD 

120 

000123 

000 


140 

J=0 

PSD 

121 

00012<I 

ooo 



HG = 0 

PSD 

122 

000I2S 

000 



nPflS5=0 

PSD 

123 

000126 

000 



nATCH=, false. 

PSD 

124 

00012T 

000 



NOCONO=.TBUE. 

PSD 

125 

000128 

000 



ISSET=, false. 

PSD 

126 

000120 

000 



H0V=O 

PSD 

127 

000130 

000 


150 

IF ( J.GE.LEfJI 7 ) 1 GO TO 440 

PSD 

I2S 

000111 

000 



fl-L0CC71 + J 

PSD 

124 

000132 

000 



J=J*l 

PSD 

130 

000133 

000 



NAND=IBC n ) 

PSD 

131 

000130 

000 



nUSE=FLO( 0, l.HAtIF 1 

PSD 

132 

ODOIIS 

000 



IF tnuSE.EQ.O) A ;v=MGV*l 

PSD 

133 

000136 

000 



HAiFLB) 7. I4,NAM8 1 

PSD 

134 

000137 

OQO 



IF (HA. ME. I 1 GO ‘ 0 370 

PSD 

135 

000138 

000 



H0C0N0=. FALSE . 

PSD 

136 

000)34 

ooo 



HA!UA¥ = FLDt 6, UNAMB I 

PSD 

137 

000) ‘10 

000 



IF 1fJAlUAV.EQ.ll GO TO 3T0 

PSD 

138 

OOOIH 

ooo 



tPCS)=0 

PSD 

134 

000142 

ooo 



flATCH=.THUE. 

PSD 

140 

000143 

ooo 



FL0(5, 16, tPCSI )=NGV 

PSD 

141 

00014H 

ooo 



7lB = FL0l 21 , 15 ,rjAri5 1 

PSD 

142 

000145 

OQO 



FLO( 21. 15, tPCSl 1=Nfl 

PSD 

143 

000146 

ooo 



IF 1 fJB.GT.firiD ) GO TO 160 

PSD 

144 

000147 

000 



IF 1. NOT. LONG) FLD( 21 , 1 , IBl H 1 ) = 1 

PSD 

145 

000146 

ooo 


160 

NRAO-FLOi 1 . 1 .NANB » 

PSD 

146 

000)'i<7 

000 



FLDI 3,t.lP0Sl )“fjRAO 

PSD 

147 

000)50 

000 

c 


CHECK FOn nonlinear CONOUCTOn 

PSD 

140 

000151 

ooo 


170 

NLGIO = FLQ( 2,1 .AIONB > 

PSD 

149 

000)52 

ooo 



IF CfJlGID.EQ.Ol GO TO 460 

PSD 

150 

000153 

ooo 



IF (FLO) 3, t .NANO ).E0. 1 1 GO TO 450 

PSD 

151 

000154 

ooo 

c 


PROCESS ndnlineap conouctph 

PSD 

152 

0Q015S 

ooo 



FLO) 2, 1, IPC51 1=1 

PSD 

153 

000156 

ooo 



fl=LPC< 4 I*(JG 

PSD 

154 

000157 

ooo 



ITVPE^FLOf 0.5 . lei n 1 1 

PSO 

155 

000158 

ooo 



i.O TO ( 180. 210, 230. 270, 300. 310, 320, 330, 340, .142 

,344,344 1,7TVPE VER 

6 

000154 

ooo 


160 

JTYPEM 

PSO 

157 

000160 

ooo 


140 

KNUn^FLOf 23, 13, IQtnn 

PSO 

158 

000161 

ooo 



nn=LOCi 12 )*KNun-i 

PSO 

154 

000162 

000 



IF ( Bifin I.GE.O.Ol GO TO 200 

PSO 

160 

000163 

ooo 



JTVPE^JTVPE*! 

PSD 

161 

000164 

000 



IF 1FL0I 7, 14 ,KANB I.EO. I 1 GO TO 200 

PSO 

162 

000165 

000 



JTVPE-12 

PSO 

163 

000166 

ooo 



IF (ITVPE.E0.B1 JTVPE=13 

PSO 

164 

000)67 

ooo 


200 

CALL PCS2 ( Ifl( n ), IPCS2A.LITA 1 

PSO 

165 

000166 

ooo 



FLOt 0.5, IPCS2A ) = JTVPE 

PSD 

166 

000164 

ooo 



»JG=fJG*l 

PSD 

167 
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oooiro 

000 


a»ENun-.TnuE. 

PSC 

163 



OOOITI 

000 


GO TO 350 

PSD 

169 



Q00IT2 

000 

210 

JTVPE=3 

PSP 

170 



000173 

000 

220 

COLL PCS2 < Ii»ni,TPCS2A,LlTA) 

PSO 

in 



000»T«1 

000 


IF ILITfi-EO.l) JTVPE=JTVPE+1 

PSO 

172 



000175 

000 


CALL PC52 t IBIR+l ). rPCS2B,UtTA7 

PSD 

173 



000176 

000 


IF tLITA.EO.Il JTVPE=jTyPE*2 

PSO 

179 



00Q1T7 

ooo 


FLOl C.5 . IPCS2A 1=JTVPE 

PSO 

175 



oooirs 

ooo 


OtJENun=. FALSE. 

PSD 

176 



000170 

000 


NG=MG*2 

PSD 

177 



oooioo 

ooo 


GO TO 350 

PSD 

178 



OOOUl 

ooo 

230 

JTVPE=1 

PSO 

179 



OO0132 

ooo 

290 

K:jun=FLD( 23, 13,IBtni 1 

PSO 

180 



000183 

000 


nn^LOCt 12 )*KKon-l 

PSO 

181 



000184 

000 


IF (eUini.GG-O-O) GO TO 250 

PSD 

162 



000185 

ooo 


Btrmi=ABStBtnnn 

PSD 

183 



000186 

ooo 


JT¥Pe=JTVPE+I 

PSO 

189 



000187 

OOD 


IF 1 FLDI 7, 19,NANB l.EB.I 1 GO TO 250 

PSO 

i85 



000188 

ooo 


JTVPE=12 

PSD 

186 



000188 

000 


IF ltTYPE.EG.5) JTVPE=13 

PSO 

187 



000190 

ooo 

250 

CALL PCS2 t IBtMl, IPCS2 A,l1TA» 

PSD 

188 



000191 

ooo 


FLOt 0,5, IPCS2A1=JTVPE 

PSD 

189 


t? 

000192 

ooo 


DI9EN1IM=.TRUE. 

PSD 

190 


T 

000193 

ooo 


ftPAS5*«PA5S*l 

PSD 

191 


H 

000199 

ooo 


IF tnPnSS.GT.il GO TO 260 

PSD 

192 



000195 

ooo 


KUnGS=1Btn*l 1 

PSD 

193 


r^ 

000196 

ooo 

260 

IF t MPASS.LT.fJUnCSl GO TO 350 

PSD 

199 



000197 

ooo 


npfcSS-0 

PSD 

195 



000190 

ooo 


tlG::MG*2 

PSD 

196 



000199 

ooo 


OG TO 350 

PSD 

197 



000200 

ooo 

270 

JTVPE=3 

PSO 

190 



000201 

ooo 

280 

call PCS2 t IBtMl.lPCS2A,LlTAl 

PSD 

199 



000202 

ooo 


IF tLITA.EQ.il JTVPE = JTVPE-*1 

PSD 

200 



000203 

ooo 


LOLL PCS2 1 I8tn*l J,|PC52D,llTAl 

PSD 

201 



000239 

ooo 


IF tLITA.ED.n JTYPEtJTVPE*2 

PSD 

202 



000205 

ooo 


FLDt 0.5.IPCS2A) = JTVPE 

PSD 

203 

S '-3d 


000206 

ooo 


ONENim=. false. 

PSD 

209 



000207 

ooo 


NPA55=nPAS5*l 

PSD 

205 

cl 


000208 

OOQ 


IF (MPnSS.GT.il GO TO 290 

PSD 

206 


000209 

ooo 


HUnGS=I6( n*2 1 

PSD 

207 

Si " 


000210 

ooo 

290 

IF tftPn'O.LT.MUMGSl GO TO 350 

PSD 

208 


000211 

ooo 


nPASS=0 

PSO 

209 

JW 


000212 

000 


MG=NG*3 

PSO 

210 

JO 


000213 

ooo 


GO TO 350 

PSD 

211 

C*^-> * w 

t~ ^ 


000219 

000 

300 

JT9PE=6 

PSD 

212 



000215 

000 


GO TO 190 

PSD 

213 

^ S- 


000216 

ooo 

310 

JTVPE-a 

PSD 

219 



000217 

ooo 


GO TO 220 

PSD 

215 

Hi ed 


000218 

ooo 

320 

J TYPE =6 

PSO 

216 

03 


000219 

ooo 


GO TO 290 

PSO 

217 



000220 

ooo 

330 

JTVPE-8 

PSO 

210 



000221 

000 


GO TO 280 

PSO 

219 

. 


000222 

ooo 

390 

JTVPe=ll 

PSO 

220 



000223 

ooo 


GO TO 200 

PSD 

221 



000229 

ooo 

39 2 

JTVPE = 19 

VEfl 

6 



0D022S 

ooo 


GO TO 220 

VEIT 

6 



000226 

ooo 

399 

JTyPE = 19 

VER 

6 


. ' . 
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OOOZ2T 

000 



GO TO 200 

VEG 

6 

00C22S 

000 

c 


PtftCE PCS2 IM DUCKET 

PSO 

222 

0QO227 

000 


350 

nsLOce 17 j+leni itj 

PSD 

223 

0QO230 

000 



IF (tl.GE.LOCl IBl) CALL FINDH7I 

PSO 

221 

000231 

ODO 



tB(n>°IPCS2A 

PSD 

225 

000232 

000 



LENt 17 >=LEN( 171*1 

PSD 

225 

000233 

000 



IF 1 ONETJUni GO TO 360 

PSD 

227 

000231 

000 



nnLOCUT )+LENt ITJ 

PSO 

228 

000235 

000 



IF (CI.GE.LQCt 10 n CALL FIHDAn (17, ni 

PSO 

229 

000235 

000 



TBUn )=IPCS2B 

PSO 

230 

000237 

000 



LEHt IT >=:LEN( IT 1+1 

PSD 

231 

000233 

000 


360 

CONTINUE 

PSD 

232 

000230 

000 



n=LOC( n+j-i 

PSO 

233 

000210 

000 



IF {.N0T.L0NG2> FLDC 3, 1 . IQ( (51 1=1 

VEBS-QOS 

000211 

000 



GO TO 160 

PSD 

235 

000212 

000 

G 


CHECK FOn nATCH D» NB 

PSD 

236 

0002'i3 

000 


370 

NA=FLD( 22,l1.HnNQ I 

PSD 

237 

000211 

000 



IF tMA.NE.I 1 GO TO 350 

PSO 

238 

000215 

000 



NOCOtlD = . false . 

PSD 

239 

000216 

000 



HAIUAV=FLD( 21, 1, NANDI 

PSD 

210 

D0021T 

000 



IF (NAlUAV.EO.il CO TO 350 

PSD 

211 

000210 

ooo 



rpcsi=o 

PSD 

212 

OOO'i? 

ooo 



HATCH=.TRUE. 

PSO 

213 

00025* 

ODO 



FL0(5.16,1PC51 1=«GV 

PSD 

211 

000251 

000 



NB=FLD( 6, 15, NANS ) 

PSD 

215 

000252 

000 



FLOt 21 , 15. IPCSl 1=NB 

PSO 

216 

000253 

000 



IF (HB.GT.NNOl GO TO 300 

PSD 

217 

000251 

000 



IF (.NOT. LONG) FLO( 6 , I , Ifil N 1 1= 1 

PSO 

210 

000255 

000 


300 

NnAO = FLO( 1 , l.NANB > 

PSD 

219 

000256 

000 



FLOO.I, IPCSl I = NHAO 

PSD 

250 

00025T 

000 



GO TO 170 

PSO 

251 

000250 

ooo 

c 


UPDATE POINTED NG IF NO HATCH 

PSD 

252 

000255 

000 


390 

NLGID=FLD( 2. l.NANB 1 

. PSO 

25 3 

000260 

ooo 



IF ( NLGIO .EU.O ) GO TO 150 

PSO 

251 

000261 

ooo 



n=LOC( 5 )*Nb 

PSO 

255 

000262 

ooo 



ITVPE'FLD* 0,5 . !B( n ) 1 

PSD 

255 

000263 

000 



ITVPEsnOOI ITVPE.1 >*1 

PSD 

257 

000261 

ODO 



GO TO 1100,110,110,120), ITV1»E 

PSO 

258 

0DQ265 

050 


100 

UPASS'HPASS*! 

PSO 

259 

000266 




IF caPASS.GT.l 1 GO TO HO 

PSO 

260 

000262 




Nunos=i0(n*2i 

PSD 

261 

000260 

ooo 


110 

IF ((iPASS.LT.HUnGS 7 GO TO 150 

PSD 

262 

000265 

ooo 



nPASS^O 

PSO 

263 

000270 

ooo 



NG=NC*3 

PSD 

261 

010271 

ooo 



GO TO 150 

PSD 

265 

0U02T2 

ODO 


120 

ttPA5S = flPASS*l 

PSO 

266 

OOD2T3 

ooo 



IF (P1PASS.GT.il DO TO 130 

PSD 

267 

000271 

ooo 



NUP1GS-I0I n*l 1 

PSD 

260 

000275 

ooo 


130 

IF CnPASS.tT.MUrlGSV GO TO ISO 

PSD 

269 

000276 

ooo 



MPASS=0 

PSD 

270 

000277 

ooo 



NG-NG<2 

PSO 

271 

000273 

ooo 



GO TO 150 

PSO 

272 

000275 

ooo 


110 

NG=NC*|TVPE-I 

PSO 

273 

000200 

000 



GO TO 150 

PSD 

271 

000201 

ooo 


ISO 

rSSET= ,TRUt . 

PSO 

275 

0D02S2 

ooo 

c 


FLAG NlC ANU NLO ON FIRST G ONLY 

PSO 

276 

000233 

ODO 


160 

IF ) .Not .NIC 1 GO TO 170 

PSO 

27 7 


1 . 




L, 


I 
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000295 

000 



FLD< l,l,tPCSll=! 

A so 

278 


000295 

000 



NlCa. FALSE, 

PSD 

279 


000286 

000 


970 

IF < .«0T.NL0> GD TO 980 

PSD 

280 


000207 

OOD ' 



FLD<9,l,1PCSl )=l 

PSD 

201 


000283 

000 



NLQ=. FALSE. 

PSD 

28 2 


000289 

000 

c 


PLACE PCSl IN BUCKET 

PSD 

263 


000290 

000 


980 

n=L0C( 16 1+LEK( 16 1 

PSD 

289 


000291 

000 



IF (n.Gf .L0CU7 ) 1 CALL FINOBH (16,(11 

PSD 

285 


000292 

000 



te(Pii=tpcsi 

PSD 

286 


000293 

000 



LEN( 161=LEN( 161*1 

PSO 

287 


000299 

000 



IF ( .not. ISSET l GO TO 150 

PSD 

280 


000295 

000 



I5SET=. FALSE. 

PSD 

289 


000296 

000 



GO TO 390 

PSO 

290 


000297 

000 

c 


FLAG LAST G FOR EACH NODE 

PSO 

291 


000290 

000 


990 

CONTINUt 

PSD 

292 


000299 

000 


500 

IF (MATCH1 GO TO 510 

PSD 

297 


000300 

000 



IPCS1=0 

PSD 

298 


000301 

000 



MATCH=. TRUE. 

PSD 

299 


000302 

000 



GO TO 960 

PSD 

300 


000303 

000 


510 

rt=LOCt !6 1*LEN( 16 1-1 

PSO 

301 


000309 

000 



FL0«O. 1,10(0)1=1 

PSD 

302 


000105 

000 


520 

CANT INUE 

PSD 

303 


000306 

000 



IF 1 LONG 1 GO TO 530 

PSD 

309 


000307 

000 

c 


SET LAST G TO 0 IF SPCS 

PSD 

305 

r 

000308 

000 



M=LOC( 16 )*LE«I 16 1 

PSD 

306 


000309 

000 



IF (n.GE ,LOC( 17 ) 1 CALL FINDRtl 06,(1) 

PSD 

30 7 

VO 

U) 

000310 

000 



IBI (1 }=0 

PSO 

300 


00031 1 

000 



FLO(O.l,I0(Mll=l 

PSO 

309 


000312 

000 



LENt 16 1 = LEN( 16 1*1 

PSD 

310 


00031 3 

000 


530 

CONTINUE 

PSD 

311 


000319 

003 



IF( .NOT.lPBINTl GO TO 590 




000315 

000 



UAtTE (NGUT,55Q) LOC( 16 >,LEN( 16 1 

PSD 

313 


000316 

000 



IST=LQC( 161 

PSD 

319 


000317 

000 



IENO=l ST*LEN( 16 )-l 

PSD 

315 


000318 

000 



WAITE (N0UT.560 I ( 1 , 1 8( 1) , T = I ST , 1 END 1 

PSO 

316 

Q\ 

00031 9 

000 



WAITE (N0UT.5701 LOC( 1 7 1 , LEN( 1 7 1 

PSD 

317 

V-i 

000320 

000 



IST=LOC( 17 1 

PSO 

310 

VtJ 

000321 

ocn 



rEND=IST*LEN( 171-1 

PSD 

319 

Q ^ 

000322 

000 



WRITE (N0UT,5601 I 1 , , Bt I 1, 1 = T ST, I END 1 

PSD 

320 

O ^ 

000323 

000 


590 

CONTINUE 

PSD 

321 


000329 

000 



L5E01=LEN( 16 1 

PSO 

322 

000325 

000 



LSE02=LENC 171 

PSO 

323 


000326 

000 



CALL URTOTA ( 5 1 

PSO 

329 


000327 

000 



RETURN 

PSO 

325 


000320 

000 

c 



PSO 

326 

. J 

000329 

000 


550 

format (/' PCSl LDC =»,l6,f LEH ='.161 

PSD 

327 

000330 

000 


560 
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J=NNC» NNCPl +I 

CALL GJRC X, NNCPl, NNC.NNC, NNCPl, SlOOHrXtJ ),V ) 

00 00 t=l,NNC 
J = NNtoNNC +1 
SO T( I > = Tl 1 ) « X( J > 

AAnAX ~ ABSC X(NNC«NNC +1)) 

00 VO 1=1, NNC 
J = NNC» NNC *I 

90 AAMAX :: AMAX U ABS< X( J ) ) , AAMAX 1 
OOUT = 0. 

J1 = Q. 

OD 150 1=1, NNC 

IF( .NOT. FLOW) CO TO 135 

LMP = HX( IXF+T 1 

JFILMP .EQ. PI GO TO 135 

OOUT = OOUT + X( IXF+LttP >«(T( 1 1 - T( LMP I ) 

135 Jl = JI +1 

LTA = FLD( 22,19, NSQK Jtn 
IF tLTA ,LE. fJNCJ GO TO 195 
LG s FLQ(5,16,»S0U Jl n 
IFCLO .ED. 01 GO TO 15Q 

IF (FLDC a. t.NSQU Jl n .EQ. 0) GO TO 190 
Tl = TH 1 *960. 

T2 = TfLTAl ♦ 960. 

OGUT = OOUT *G(LG)»CON(501«<Tl«*9 -T2**9 ) 
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190 OOUT = OOUT * G(L6t» < Tt I ) -TtLTAIl 
195 IF INSOtIjn .GT. Q I GO TO 135 
150 CONTINUE 

corn 32) = ABS(QIN-COUT) 

IF (C0NC32) .GT. C0NO31 .QR. lEBAL .GT. Q) GO TO UO 
UniTE (6,082) KON( 20), CONI 32), AAMAX 
lEBAL =1 
160 CONTINUE 
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110 CONTINUE 
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WRITE 1 6,008 1 K0N( 20 ), AAMAX. CONI 32 ) 

KCN( 28 ) =KCN( 28 > *2 
CALL OUTCAL 

120 CONTINUE 

121 uniTE ^6,885 ) LAX 
130 CALL VARDL2 

CONt 13) = CONI 1 ) 

URITE (6,007) KONlS ),K0N(20).CON( |9),AAMAX,C0N( 33 ).CON( 32 > 
K0NI26) = K0N(2B) + 9 
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SUBROUTINE SMFUDL 

EXPLICIT FORUARD DIFFERENCING EXECUTION SUBROUTINE FOR SINDA F-V 

THE LONG PSEUDO-CONPUTE SEQUENCE IS' BEQUIREa 

COfintlH /FDItlHS/ HTTP, NSVS 

INCLUDE conn, LIST 

include DEFF,LrsT 

IFlCONt 9 ).LT. 1.0 > C0NC9) =1.0 

IF IKONtSJ .LE. 21 KQN(51 =10 

IF(COMt 6 l.LE.O, ) C0Nt6J = l.E+3 

IFt CONI a l.LE.O. 1 CONIBI = 1 .Ei-3 

1F( C0tI(9).tE.0. » C0N19) = l.O 

IFt CON( IM.LE.O. ) CONtin = l.E+8 

IFtCONC 181.LE.0. ) GO TO 999 

IF (C0N(I9) .LE. 0.) CONUS) =,I 

IFIKONI 31 J.NE. 1 1 GO TO 995 

IF (CON<50) .LE. 0.) CDWSiil =1. 

PASS = -l.O 
NNC = NND-»NNA 
IE = NTH 
NLA = NQin 
NTH = NTH*HNT 
NBIn = NOin-HNT 

CHECK FOR EXTRA LOCATIONS FOB CALCULATED NODES 

I = NLA-NHC 

in l.LT.Ol GO TO 998 

LI = NHD*I 

TSTEP = CONI 18) 

TPRINT = CON( 13 1 

INITALIZE TIME SUM BETWEEN OUTPUT INTERVALS 
5 TSUM = 0.0 

DOES OLD time PIUS THE OUTPUT INTERVAL EXCEED THE STOP TIME 

IF( CONI 13)«CQNC 18 I.LE.CONt 31) GO TO 10 

DONT EXCEED IT 

CONI 13) = CONI 3)-Cari( 13) 

IS THE TIME STEP LARGER THAN ALLOWED 
10 IFITSTEP.LE.COHI a )) GO TO IS 
TSTEP = CONI 8 > 

DOES THE TIME SUM PLUS THE TIME STEP EXCEED OUTPUT INTERVAL 
15 IFI TSUn+TSTEP-CONI 13 1 1 25,30,20 
DDNT EXCEED IT 
20 TSTEP = CONI 18)-TSUt1 
GO TO 30 

DOES TIME SOM PLUS TWO TIME STEPS EXCEED OUTPUT INTERVAL 
25 IFI TSUM+2.0*TSTEP.LE.C0HI 13 )) GO TO 30 
APPROACH THE OUTPUT INTERVAL GHADUALLV 
TS' EP = (Com 18 )-TSUM)/2.0 
STORE delta TIME STEP IN THE CONSTANTS 
30 CONI 2) = TSTEP 

IS THE TIME STEP USED LESS THAN THE TIME STEP ALLOWED 

IFITSTEP.LT.CONI 21 n G0 TO 997 

CALCULATE THE NEW TIME 

CONI I * = TPRINT+TSUn+TSTEP 

COMPUTE THE mean TIME BETWEEN ITERATIONS 

CQNI19) = I CONI 1 H-CONI 13 U/2.0 

ZERO OUT ALL SOURCE LOCATIONS AND EXTRA LOCATIONS 
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000217 

OOO 



IF IOELTAB ,LT. OELTAAI go to 179 

000210 

000 



:F IDELTAB -LE. 0.1 GO TP 179 

000219 

OOO 



IF »!TLl .NE. LTL21 GO TO 179 

000220 

OOO 



IF (LvL2 .NE. LTL3) GO TO 179 

000221 

OOO 



IF (TEnPl .CT. TEnP2J GO TO 176 

000222 

000 



IF (TEMi’2 ,GT. TEnP3> GO TO 179 

000223 

OOO 



GO TO U7 

000229 

OOO 


176 

IF (‘TEnp.’ .LT. TEnP3) GO TO 179 

000225 

030 


177 

CONTINUE 

000226 

OOO 
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DKT£ 022875 PAGE A 
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000227 

000 



IF <CC0N(9) *.ll .IT. anOAPlPl C0N19) = C«)N15I1 v.t 

00Q22S 

000 



IF <C0N(9) .GT. 1.) CONtOJ ol. 

000229 

000 



WHITE (6,709) LAX,K0N15 l,DN,C0N(9) 

000220 

000 


709 

FORMAT C //10X,90HTBE SOLUTION (JftS CONVERGING WHEN MLOOP =,I5,93U U 

000231 

odo 



■AS EXCEEDED. NLOOP WILL BE INCREASED TO, 15, IH, / I OX , 20HDAMPA INC 

000232 

ooo 



■ REASEOi FROn.FB -3,3H T0,F5.3,23H AND THE LOOP CONTINUED,//) 

000233 

000 



KQN(2B) = K0N(28) *6 

-i)023*» 

GOO 



GO TO 131 

009235 

000 

c 


REDUCE DAMPA AND TRV AGAIN 

000230 

000 


179 

DO 171 11=1, NNA 

000237 

000 



JJ = II +Ll -1 

000238 

000 



KK = 11 4 !E ■ NND 

000239 

000 


171 

T( JJ ) = XI KK ) 

0002'i0 

000 



BADAnP = C0NC9) 

000291 

ooo 



C0H(91 = CGN(91 -.1 

000292 

000 



IF icoras) .LT. .0001) go to IT2 

000293 

ooo 



WRITE (6,705 ) C0NC9) 

000299 

ooo 


705 

FOBDAT t //10X.76HNL00P HAS EXCEEDED WITHOUT CONVERGENCE. DAMPA UI 

000295 

ooo 


• LL BE BEDUCED TO A VALUE OF, F5.3,2NH AND THE LOOP HEPEATEO . ,/ / ) 

000296 

ooo 



KQN( 28 ) = KQN( 28 ) +5 

000297 

ooo 



GO TO 131 

000298 

ooo 


172 

CON( 9 > = C0N( 9) +.1 

000299 

ooo 



UBITE ( 6, 706 ) CGN( 9 ) 

□ 00250 

ooo 


706 

format I //10X.2OH0AMPA HAS REDUCED TO, F5.3.20H UITIIDUT CONVERGENC 

000251 

ooo 


*E > 

000252 

000 



K0N(28> = K0N(28) +3 

000253 

ooo 



GO TO 1000 

000259 

DOO 

c 


STORE THE MAXIMUM ARITHMETIC RELAXATION CHANGE 

000255 

ooo 


175 

CONI 30) = TCGM 

□ 00256 

ooo 

c 


COMPUTE THE ARITHMETIC TEMPERATURE CHANGE 

000257 

DOO 



TCGM = 0.0 

000250 

ooo 



DO 180 I = L1,NNC 

000259 

ooo 



LE = IE*I 

000260 

ooo 



T1 = AOSI TI I )-X(LE I ) 

000261 

ooo 



IF(Tl.LT.TCGM) GO TO 100 

000262 

ooo 



TCGM = Tl 

000263 

DOO 



KONI 38 > = 1 

000269 

ooo 


180 

CONTINUE 

000265 

ooo 

c 


SEE IF ATMPCA HAS SATISFIED 

000266 

000 



IF(TCGM,OT.CON( im GO TO 125 

000267 

ooo 



CONI 161 = TCGM 

000268 

ooo 


185 

KONI 121 = 0 

000269 

ooo 



CALL VAHBL2 

000270 - 

ooo 

c 


CHECK THE BACKUP SUT "H 

000271 

OQO 



IFCKCNt I2).NE.0) GO TO 105 

000272 

ooo 

c 


advance time 

000273 

000 



CONI 13) = CON1 1 ) 

000279 

ooo 



TSUM = TSUM*TSTEP 

000275 

Dot 



TSTEP = OELTA.O.TS 

000276 

000 

c 


CHECK FOB TIME TO PRINT 

000277 

ooo 



IF! TSUM. GE. CONI 18)) GO TO 190 

000278 

OQO 

c 


CHECK FOR PRINT EVERY ITERATION 

000279 

DOO 



1F(KCN( n.EO.D) GO TO 10 

000200 

ooo 



CALL OUTCAL 

000201 

ooo 



GO TO 10 

000202 

ODO 

c 


TRV TO EVEN 1HE OUTPUT INTERVALS 

0002B3 

ooo 


190 

TPHINT = IPRINT+TSUM 
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ooazes 

000 

195 CfitL QOTCftL 


000285 

000 

C IS Tine GBEATEB THAN EKD COHPUTE TIME 


00D286 

000 

IFICQJKl 1*1.000001. LT.CONt 31 1 GO TO 5 

o'-. 

00028T 

000 

NTH = IE 


000268 

000 

NBtn = NLfl 

.„... 

000289 

000 

RETUGN 

"1 

000290 

000 

995 UniTEC 8,805) 


000291 

000 

GO TO 1000 


000292 

000 

996 URITEC 6,006 ) 


000293 

ODD 

GO TO 1000 


00029>l 

000 

99T UniTEC8,80Tt 


000295 

000 

GO TO 1000 


000298 

000 

990 uniTEI6,080) ! 


00029? 

000 

GO TG lOOO 

:4- " ■ 

000298 

000 

999 UHITEI 6, 889 » 


000299 

000 

1000 CfiLL OUTCAU 


D00300 

000 

GAEL EXIT 

> 

000301 

000 

80S FQnnAT(9SH CNFBDL BE0U1RES LONG PSEUDO-COnPUTE SEQUENCE) 


000302 

000 

006 FQBMAT(29(t CSGMIN ZERO OH NEGATIVE) 


000303 

ooo 

8BT FDRflATtZOH TldE STEP TOO SMALL) 


000309 

000 

800 FORnATt 1B.20H LOCATIONS AVAILABLE) 

'C- 

000305 

000 

889 FQRMATM9H NO OUTPUT INTERVAL) 

tJ 

000308 

000 

ENO 

to 

l_I 

END ELT. 
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«HDG,P SNFBUD 



SNFRUO / DATE 032875 

8EI.T,L SNFBUO 

ELT0T7 nUBTO 0Z/28-Q3t20i52-t J, ) 


000001 

000 



SUOnoOTINE snfrwo 



000002 

000 

c 


EXPLICIT FOnUARD DIFFEREnCIHG EXECUTION SUORQUTINE 

FOR 

SIHDA F-V 

000003 

ODD 

c 


THE SHORT PSEUDO-COPIPOTE SEQUENCE IS REQUIRED 



00000‘< 

002 



COMWOW /FDinNS7 HTYP, NSVS 



000005 

000 



INCLUDE conn, LIST 



000006 

.000 



INCLUDE DEFF,LtST 



000007 

000 



IFtCONC 9 ).LT. l.O > C0NC9> = 1.0 



oooooa 

000 



IF (K0N(5) .LE. 2) KQNtS] =10 



000009 

000 



IF(C0N(6).LE.0. ) C0Nf61 = l.E+S 



000010 

000 



IFICOHC Bl.LE.O. ) CONIOI = l.E+0 



00001 1 

000 



inCOHCOl.LE.O. ) CQNI9) = 1.0 



000012 

000 



|F( CONC 11 l.LE-O- > CONlin = l.E-t-8 



000013 

000 



IFICONC lOt.LE.O. 1 GO TO 999 



000019 

000 



IF (C0W(191 ,LE. 0.1 CONtlOl =,l 



000015 

000 



IFIKOHt 311.NE.0) GO TO 995 



000016 

000 



IF (CQNlSOl .LE. O.t CONISOI =1. 



OCOOIT 

ooo 



PASS = -1.0 



000018 

000 



NNC = NND*»NA 



000019 

000 



IE = NTH 



000020 

000 



NLA = NDin 



000021 

002 



NTH = NTH»NNT 



000022 

002 



NDin = NDin-NNT 



000023 

000 

c 


CHECK FOR EXTRA LOCATIONS FOR CALCULATED NODES 



000029 

000 



I = NLA-NNC 



000025 

000 



IFt I.LT.O) CO TO 990 



000026 

000 



LI = NNO+l 



000027 

000 



TSTEP = CDMllOI 



000020 

000 



TPRINT = CONI 13) 



000029 

000 

c 


INITALI2E TINE SUH BETWEEN OUTPUT INTERVALS 



000030 

000 


5 

TSOfl = 0.0 



000031 

000 

c 


DOES OLD TIOE PLUS THE OUTPUT INTERVAL EXCEED THE 

STOP 

TIME 

000032 

ooo 



IFCCONt I3>*C0Nt tai.LE.CONl 3 It GO TO 10 



000033 

000 

c 


DONT EXCEED IT 



000039 

000 



CQNMSl = CON< 3)-CQN( 13) 



000035 

ooo 

c 


IS THE TinE STEP LARGER THAN ALLOWED 



000036 

Ooo 


10 

IF{ TSTEP. LE.CONlfl H GO TO I5 



000037 

ooo 



TSTEP = CONtSl 



000038 

ooo 

c 


DOES the tire sun PLUS THE TIME STEP EXCEED OUTPUT 

INTERVAL 

000039 

ooo 


15 

IFt TSU(1*TSTEP-C0N( 18 1 1 25,30,20 



000090 

ooo 

c 


nONT EXCEED IT 



00009 1 

ooo 


20 

TSTEP = CONt lei-TSUfI 



000092 

ooo 



GO TO 30 



000093 

000 

c 


DOES TIME sun PLUS TWO TIRE STEPS EXCEED OUTPUT INTERVAL 

000099 

ooo 


25 

IFt TSUt1*2.0. TSTEP. LE. CONt 18 n GO TO 30 



000095 

000 

c 


APPROACH the output INTERVAL GRADUALLY 



000096 

ooo 



TSTEP = tCONt 10)-TSUn)/2.0 



000097 

000 

c 


STORE DELTA TIRE STEP IN THE CONSTANTS 



000090 

ooo 


30 

CONt 2) = TSTEP 



000099 

000 

c 


IS THE TIME STEP USED LESS THAN THE TINE STEP ALLOWED 


OOOOSO 

DOO 



IFt TSTEP. LT. CONt 21 J > CD TO 997 



000051 

ooo 

c 


calculate the new time 



000052 

000 



CONt I 1 = TPRINT»TSUt1*TSTEP 



000053 

ooo 

c 


COnPUTE the ream TlnE between iterations 



000059 

ooo 



CONflH) = (CONt t 1*C0NI I3))/Z.0 



oo.:n55 

ooo 

c 


zero out all source locations and extra locations 
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00D05& 

000 



00 35 I = l.NND 


000057 

000 



LE = lE+l 


000058 

000 



XO.E) = 0.0 


000050 

000 



0( t > s 0,0 


000060 

ooo 

1 

35 

CDMTINUE 


00006t 

000 

c 


SHIFT THE flaiTHMETlC TEdPEBRTOHES tKTO THE 

EXTRA LOCATIONS 

000062 

002 



IFtNNO.EO.HMT) GO TO 95 


OOOObO 

002 



00 31 I=L1,NNT 


00006'! 

002 



Xt IE*l ) - T( ! ) 


000065 

002 


31 

CONTinUE 


000066 

000 



IFINrjA.LE.O) GO TO 95 


OO0067 

000 



00 90 t = Ll.NKC 


000068 

000 



01 n = 0.0 


000069 

000 


90 

CONTINUE 


000070 

000 


95 

KONI 12) s 0 


OOOOTl 

000 



CALL VABBLl 


000072 

000 



IFCKQNl IZI.NE.O) GO TO 10 


000073 

000 



J1 = 0 


00007<l 

DOO 



J2 = I 


000075 

000 



TCGn = 0.0 


000076 

ooo 



CKP) = l.E*e 


000077 

ooo 

c 


CALCULATE 0 SUM AND G SUfl 


000078 

OQO 



DO 85 I = l,NND 


000079 

000 



LE = !E+t 


000080 

OQO 



INCLUDE VABC.LtST 


000081 

ooo 



INCLUDE VARO.LIST 


000002 

ooo 


50 

J1 = Jl*l 


000083 

000 



LG = FL0t5,l&,N5Qlt jni 


000089 

ooo 

c 


CHECK FOB LAST CONOUCTQB 


000085 

ooo 



IFILG.EO.O) GO TO 35 


000086 

ooo 



LTA ;; FLOt 22 , 19 .HSQK J 1 1 ) 


000087 

000 



INCLUDE VARG.LIST 


000088 

OQO 

c 


CHECK FOB BAOIATIOH CONDUCTOR 


000009 

000 



tFtFLDI3,I,NSQl( Jin.ED.O) CO TO 55 


000090 

000 



TI s Tl I )*960.0 


000091 

ooo 



T2 = TtLTA 1*960.0 


000092 

ooo 



GV = GILG 1*1 TI*Tl*T2*T2 )*IT1+T2 1 


000093 

ooo 



GV = CV •CGNI50) 


000099 

ooo 



GO TO 60 


000095 

ooo 


55 

GV = GILGt 


000096 

000 

c 


OBTAIN THE Q bate THRU THE CONDUCTOR 


000097 

ooo 


60 

OOOT = GV*I T1 LTA 1-Tt 1 ) ) 


000098 

ooo 



0( 1 ) 3 OC 1 )*nODT 


000099 

ooo 

c 


SAVE SUtlHATlON OF CONDUCTORS 


000100 

ooo 



X(LE1 = XILE)*GV 

' 

000 lot 

000 

c 


CHECK FOR ADJOINING DIFFUSION NODE 


000102 

ooo 



IFCLTA.GT.NNO.DB.FLDt 21. 1 . NSOIC J 1 ) ) .EQ. 1 > 

GO TO 65 

000103 

ooo 

c 


SAVE SUnnATtON OF CONDUCTORS FOR ADJOINING 

NODt 

000109 

000 



LEA s IE*LTA 


000105 

ooo 



X(LEA) = XtLEA]*GV 


000106 

ooo 



0(LTA» = Q1LTA)-0DDT 


000107 

000 

c 


CHECK FOR last CONDUCTOR 


oooioe 

ooo 


65 

IFtNSQK Jt I.GT.O! GO TO 50 


000109 

ooo 


85 

CONTINUE 


OOOllO 

000 

c 


OBTAIN HEU DIFFUSION TEnPERATUBES. DTnPCC 

AND CSGtllN 

cuottl 

000 



DO 10O I = l.NND 



SHFHUO 




/ 

000113 

000 

c 


CAt.cui.ATE C/5K niuinun 

oooili 

002 



1FC.N0T. XILEI .GT. 0) GO TO 90 

000115 

000 



T1 = Ctl 1/XlLEl 

000116 

000 



IFtTt.GE.CXni GO TO 90 

000117 

000 



CKfl = Tl 

OOOllS 

000 



KOHt 35 > = I 

ooono 

000 

c 


COnPUTE NEU TEMPERATURES USING CALCULATED SOURCE TERdS 

000120 

ooo 


90 

Tl = TSTEP*Ot I )/C( 1 1 

000121 

000 

c 


CALCULATE THE ABSOLUTE VALUE TEnPERATURE CHANGE 

000122 

000 



T2 = ABSITl > 

000123 

000 

c 


SAVE THE LARGEST TEMPERATURE CHANGE 

000124 

000 



IFC TCGn.CE.T21 GO T8 95 

00012S 

000 



TCGM = T2 

000126 

ooo 



K0«!36) = I 

000127 

000 

c 


STORE iKE TEMPEflATUHES 

000128 

ooo 


95 

X(LE 1 = ti I 1 

000120 

000 



Tt 1 ) = Tfi l*Tl 

000130 

ooo 


100 

CONTINUE 

000131 

ooo 



CDMf 171 = cun 

000132 

ooo 



DELTA 2 CKM/C0N(4 > 

000133 

002 



KOP = 0 

000134 

002 



IF< CONI 7 l.NE.O.O) KOP = 1 

OCOI 35 

002 



IFINSVS .NE. 0) CALL FLUID! 1 , 0,0, 0 . ,KOP 1 

000136 

ooo 

c 


CHECK FOR FIRST PASS 

000137 

ooo 



IFCPASS.GT.O.O) GO TO 115 

000138 

ooo 

c 


UNDO THE TEMPERATURE CALCULATIONS 

000139 

002 


105 

DO no t = 1,NNT 

000140 

000 



LE = IE*I 

000141 

ooo 



T« 1 1 = XtLE 1 

000142 

ooo 


no 

CONTINUE 

000143 

ooo 



IRPASS.GT.0.0) GO TO 15 

000144 

ooo 



PASS = 1.0 

000145 

ooo 



CONI 1 ) = TPRIMT 

000146 

ooo 



CONI 2 J = 0.0 

000147 

001 



TSTEP = 0£LTA*0.75 

000148 

ooo 



GO TO 195 

000149 

ooo 

c 


IS THE TIME STEP USED LESS THAN THE TIME STEP CALCULATED 

0Q0150 

ooo 


115 

IFITSTEP.LE.DELTAI GO TO 130 

oooist 

ooo 

c 


COMPUTE THE TIME STEP 

000152 

001 



TSTEP = DELTA*0.75 

000153 

ooo 



GO TD 105 

000154 

001 


120 

TSTEP = 0.T5*T5TEP*C0Nt61/TC0n 

000155 

ooo 



GO TO 105 

OODI56 

001 


125 

TSTEP = 0. 75t.TSTEP*C0M( 11 1/TCGH 

000157 . 

000 



GO TO 105 

000158 

000 

c 


SEE IF THE TEMPERATURE CHANGE UA5 TOD LARGE 

000159 

ooo 


130 

IF! TCGM.GT.C0Nr61 1 GO TO 120 

000160 

ooo 

c 


STORE THE MAXIMUM DIFFUSION TEMPERATURE CFANGE 

000161 

□oo 



CON! 15 ) = TCGM 

000162 

000 

c 


CHECK TO SEE IF THERE ABE ANY ARITHMETtC MODES 

000163 

ooo 



IFCNNA.LE.Ol GO TO 185 

000164 

ooo 

c 


COMPOTE ARITHMETIC TEMPERATURES BV SUCCESSIVE POINT DVER-RELAX 

000165 

ooo 



DAOAMP = 1. 

000166 

ooo 



LAX = K0NI5 ) 

000167 

ooo 

c 


STORE Q'S CALCULATED DURING DIFFUSION NODE LOOP 

000168 

ooo 



OD 133 tl=l,N»C 

000169 

ooo 


133 

XI inNHAl = 01 1 1) 


SATE 022875 


PACE 


£is-a 


SNFnUD 


/ 


DATE 022875 


F*GE 


00017D 

000 


131 CONTINUE 


oaairi 

000 


DH = C0H191 


000172 

000 


DO = 1.0“DH 


000173 

OQO 


DO 170 I = I, VAX 


000171 

000 


JJl J1 


000175 

000 


JJ2 = J2 


000176 

000 


TCGM =0.0 


000177 

000 


xofJiao) = I 


000178 

000 


DO 165 L = Ll^NNC 


000170 

000 


SUnC =0.0 


000180 

ooo 


suncv =0.0 


000181 

000 


1F< r.OT.l S GO TD 6000 


00018Z 

000 


INCLUDE VR02,LIST 


000183 

000 


135 JJ! = JJl+l 


000180 

000 


LG = FL0(5,16,TtSQl( JJll) 


000105 

000 


LTfl = FLD(22,19,NS01C JJl )) 


000106 

000 


IFt 1 .GT.l 1 GO TD 9000 


000187 

000 


INCLUDE VBG2A15T 


000188 

000 

-c 

CHECK FOn RnOlATIOH CQNDUCTD8 


000189 

000 


IFCFLDl 3, l.NSOK JJl n.EO.Ol GD TO 190 


000190 

000 


n = TtLH-960.0 


000191 

000 


T2 = TtLTftl*960.0 


000192 

000 


GV = OtLG T1»T1*T2»T2HHTI*T2> 


000193 

000 


GV =GV«C0N(5O) 


000199 

000 


GO TO 195 


000195 

000 


190 GV s GCLGt 


000196 

ooo 


195 sunc = sumc*GV 


000197 

000 


suncv = suficv+cy*TiLTfi» 


000198 

ooo 

c 

CHECK FOR LAST CONDUCTOR 


000199 

ooo 


IFINSOK JJl l.GT.O) GO TO 135 


000200 

ooo 


T2 = 00»T1 L l+DN»l SOnCV*0< L ) »/SUnC 


000201 

ooo 

c 

OBTAIN THE CALCULATED TEnPERATUBE DIFFERENCE 


000202 

ooo 


T1 = A0S(TtLl-T21 


000203 

ooo 

c 

STORE THE NEW TENPERATURE 


000209 

ooo 


T( L ) = T2 


000205 

ooo 

c 

SAVE THE (lAXlmin AfilTHriETlC HELAJiATlOH CHANGE 


000206 

ooo 


IFt TCGn.GE.TI 1 GO TO 165 


000207 

ooo 


TCGtt = Tl 


000208 

000 


KON( 371 = L - 


000209 

ooo 


165 Continue 


000210 

ooo 

c 

SEE IF RELAXATION CRITERIA UAS RET 


000211 

008 


0L03 = QL02 


000212 

ooo 


0LD2 = OLDI 


000213 

ooo 


OLDl = TCGn 


000219 

ooo 


LTL3 = LTL2 


00021S 

ooo 


LTL2 = LTLI 


000216 

ooo 


LTLI = L 

• 

000217 

ooo 


TEttPS = TEWP2 


000218 

ooo 


TE71P2 = TEflPl 


000219 

ooo 


TEHPl = TIL 1 


000220 

ooo 


IFlTCGn.LE. CONI 1911 GO TO, 175 


000221 

ooo 


170 COHttNUE 


000222 

ooo 


0ELTAA= 0LD2 - OLOl 


000223 

ooo 


0EITAB= 0L03 - 0L02 


000229 

ooo 


00 173 JI=I.NNC 


000225 

ooo 


173 or II 1 = X( t!+NNAl 


000226 

000 


IF (DELTAA ,L£. O.J GO TO 179 



SNFRUO 


/ 


SHYE 022875 


P8GE 


5 




OOOZ2T 

000 


IF (DEUTAB ,LT. OELTAAI GO t(J 179 



00022S 

OQO 


IF tOELTAB ,LE. 0.1 GO TO 179 



000229 

000 


IF tLTLl .HE. L7U2) GO TO 179 



000230 

000 


IF CLTL2 -HE. LTL31 GO TO 179 

i 


000231 

o'oo 


IF (TEdPl .GT. TEHP21 GO TO 176 

f ^ 


000232 

000 


IF (TEI1P2 .GT, TEnP3) GO TO 179 

i" •'•’ 


000233 

000 


GO TO 177 



000239 

000 


176 IF (TEPIP2 .LT. TEnP3I GO TO 179 

! 'V' ‘ 


000235 

000 


ITT COrjIINUE 

; '•- 


000236 

000 


KQN(51 = KOHISl * LAX 



000237 

000 


IF MC0fJ<9J *.l> .UT. BflOAOlPI CONI 9 1 = C1N(9> *.l 



000230 

ooo 


IF <CGH(9J .GT. 1.) C0N(91 =1. 



000239 

000 


UniTE ( 6,709 ) LAX,K0N(5 ),DN,Cam 9) 

• .^- 


0OO2H0 

ooo 


709 FOBnOT ( 7/1QX,90HTHE SOLUTION UAS CONVERGING NHEH NLOOP =,IS,93H U 



000291 

000 


*ns EXCEEDED. NLOOP MILL BE INCREASED TO , 15 , IH, / 1 OX , 20KDAI1PA INC 



000292 

ooo 


•BEASED FB0N,F5.3,3)I T0,F5-3,23H AND THE LOOP CONTI NUEO, 77 1 



000293 

ooo 


KON( 28 ) = )CON( 26 1 *& 

1 ‘-’ 


000299 

ooo 


GO TO 131 

,ti- 


00O295 

ooo 

c 

BEOUCE DAUPA AND THY AGAIN 



000296 

ooo 


179 00 171 11=1, NNA 



00029T 

ooo 
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000073 

000 
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STDSTL 
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DOUBLE PREClSlOn R 1 6 , H3,ftSR2,CS,FF , GG , Z7 



000070 

000 
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000085 
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000 
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000 
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GO TO 150 
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000 
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□ 00 
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000 
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000097 

000 


CONI 50 1 = Dunnvi ii i 
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000 
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000 
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000109 

000 
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STOSTL 

000105 

ooo 


3QI FOnnATt IU1.50M ERROR - EITHER ARLXCA OR BALENG HUST BE 

SPECIFIED) 


000106 

000 


GO TO 600 


STOSTL 

000107 

ooo 


350 un|TE<N0UT,3St 1 


STOSTL 

ODQlOa 

ooo 


351 FORMAT! nil ,6711 ERROR - AHLXCA MUST ALSO BE SPECIFIED, 1 

SINCE DRLXCA 

000109 

ooo 
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1100 

CONTINUE 
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IF( ARLXCA.LE.O.D.AND. 
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ASSIGN 1350 TO IPASS 
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ASSIGN 9900 TO ITER 


STOSTL 
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000 


ASSIGN 2910 TO JPAS5 
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000 


ASSIGN 2910 TO NPASS 
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OOQ 


DO 9800 LOOPCT = l.NLOOP 
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000135 
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ZERO OUT ALL SOURCE lERMS 
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000 
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000 
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STOSTL 

000193 

000 


CALL OUTCftL 


STOSTL 
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000 
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DO 1910 I = l.NNT 


STOSTL 
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000 

1910 

T1 I » = TI I 1*960.0 
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000196 

ooo 


IF(NND.LE.O) GO TO 3100 


STOSTL 
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PERFORH A SUCCESSIVE POINT ITERATION ON THE DIFFUSION 
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ARLXCC s 0.0 
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001 


KOP = 0 



008202 

001 


IFIOPEnn.NE.O.OI KGP = 1 



000203 

001 


IFIFLOU) CALL FLU IDt 5 , 0 . 1 XF , TZERO ,KOP ) 
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000 


J1 =0 



000205 

000 


J2 =I 



000206 

000 


DRLXCC o 0.0 
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000207 

000 


DO 3001 1=1. NND 



000208 

QOO 


Tt I 1 = Tf n -960. 



000209 

ooo 


IFIFLDI t.UNSOK Jl*tn.EO.O» 60 TQ 2000 



000710 

000 


NTVPE = FLD<0,5,NS02( J2)l 



000211 

000 


GO TO (1999,1998,1998,1998,1999.1998,1998,1990,19991, 

NTVPE 


000212 

ooo 

1998 

J2 = J2+1 



000213 

ooo 

1999 

J2 = J2*l 



000219 

ooo 

2000 

CONTINUE 



000216 

ooo 


tF{FLD(9,i,(iisaiiji*n].Ea.O) go to sooo 



000216 

ooo 


NTVPE = FLO( 0,5,NS02C J21) 



000217 

ooo 


LA = FLDC5, I7,NS02( J2 n 



000213 

ooo 


LK = FLDr22,l9,N$02( J2M 



000219 

ooo 


GO TO (9005,9010,9015,9020,9025,9030,9035,9090,9030, 
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0D022D 

QOO 

K 

> 9050,9050.9050 1, NTVPE 


VERS 

000221 

ooo 

9005 

Qt r 1 = XKt LK )*Q( I 1 



000222 

ooo 


GO TO 9999 



000223 

ooo 

HDIO 

Ql = 0.0 
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ooo 

9012 

CALL DlDtUni T( I >,A(LAl,XKtLK 1,02) 
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000 
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OOOZ2T 
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0002Z8 

000 


GO TO 1998 


000229 

000 

1020 

CALL DlDlURtCONt 11 A( LA 1,XK( LK 1, Q 1 1 


000230 

OOO 

1022 

J2 = J2+1 


000231 

000 


LA = FLD(5,17,N5Q2(J2n 


000232 

OOO 


LK = FLD<22>11,NSQ2( jan 


000233 

OOO 


GO TO 1017 


00023*1 

OOO 

1025 

01 = XKtLK }*XK(LA) 


00033S 

000 


GO TO 1022 


000230 

OOO 

1030 

CALL OIDIUPH CONI H ) , A( LA ) , XK( LK ), 0 1 ) 


000237 

OOO 


J2 = J2*l 


00023S 

OOO 


LA = FU0(5,17,NSQ2IJ2n 


000239 

OOO 


LK 5 FlDI 22,11. riSQ2(J2U 


000290 

OOO 


02 = XK(LK )tXK(LA) 


000291 

OOO 


GO TO 1996 


000212 

OOO 

1035 

CALL DtOlUrU CON{ H ), A( LA 1 .XKt LK ),Q L ) 


000213 

OOO 

1037 

JZ = J2+1 


000211 

OOO 


LA = FLB(5, 17,NSQ2( J2>) 


000215 

OOO 


LK = FLOl 22,l1,riS02(J2n 


000216 

OOO 


GO TO 1012 


000217 

000 

1010 

01 = XKC LK KXKCLA t 


00D21S 

000 


GO TO 1037 


000211 

000 

1050 

J2=J2*l 

VERS 

000250 

000 


JPSLfi=FL015, 17,NS02( J2J1 

VERS 

000251 

000 


JPSLK=FL0( 22,11,MSQ2C J2 > 1 

VERS 

000252 

OOO 


SP JTtn-CONI 11 >*XK< JPSLA l»XRt JPSLK > 

VEB5 

Q00253 

OOO 


CALL OiinCVt XK( JPSLK l.SAJTin, A( LAl.XKI LKl.QI 1 

VERS 

000251 

OOO 


02-0.0 

VERS 

000255 

OOO 


GO TO 1998 

VERS 

000256 

000 

1998 

Q( t ) = Ql-» 02 <»a( 1 ) 


000257 

OOO 

1999 

J2 = J2+1 


O0O25B 

000 

5000 

CONTINUE 
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GSUNL = 0.0 
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OOO 


Gsunn =0.0 
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000262 

001 


IF( .NOT. FLOW) GO TO 25 


000263 

001 


LOP = »X( TXf + 1 1 


000261 

001 


IFILDP .EO. 0) GO TO 25 


000265 

OOl 


HA = X( lXF*Ln? 1 


000266 

001 


GSUPIL = HA 


000267 

001 


Q( I 1 = Q( I )*HA»T<LnP 1 


000268 

001 


Qsun = 01 I 1 


000269 

OOO 

25 

JI = J!*l 


000270 

000 


LG = FL0(5,16,NSai( Jl 1) 


000271 

001 


IF( LG .EO. 0) GO TO 2310 


000272 

000 


LTA = aO( 22, ll.NSOIt Jl 1) 


000273 

OOO 


TILTAl = T(LTA) -160. 


000271 

OOO 


tF( FLD( 2, l.NSOK Jl 1 l.EO.O 1 GO TO 3000 


000275 

OOO 


NTVPE s FLDI 0.5. NS02t J211 


000276 

ODO 


LA = FLDt5,tT,N502t J2 >1 


000277 

OOO 


LK = FL0(22.I1,N5Q2( J2II 


000270 

OOO 


GOTO! 2005,2010,2015,2020,2025,2030,2035,2010,2015,2050,2055, 


000271 

OOO 


2060,2065.2070,2073.2070) , NTVPE 
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OOO 

2005 

Tfl = (T( 1 l*TlLTA1)/2.0 


000281 

OOO 

2007 

call DtOlUnC Ttl.AlLA I.XKI LK I.GCLG )) 


000282 

OOO 


GO TO 2999 


000283 

OOO 

2010 

TM = T( 1 1 
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80 TO 2007 

000285 

000 

2015 

CALL DlOlUni Tt 1 1,A(LA),XK(LK>,Ct 1 

000286 

000 

2017 

J2 = J2*l 

000287 

000 


LA = ELDI5,17<NSQ2( J211 

000288 

00(f 


LK = FL0(22,19.NSa2CJ21) 

000289 

000 


CALL DIDlim(T(LTA).A(LA),XK(LK>,G2) 

000290 

000 


GO TO 2998 

000291 

000 

2020 

G1 = XKt LK L'A ) 

000292 

000 


60 TO 2017 

000293 

Ooo 

2025 

CALL DIDlUniTl 1 ),AI LA l,XKt LK l.fil 1 

000299 

ooo 


32 = 32*1 

000295 

ooo 


LA = FLDt5.17,HS02lJ2J) 

000296 

ooo 


LK = FLD( 22,19, NSOZtJZn 

000297 

000 


62 = XKCLK)*XK<LA) 

00029B 

boo 


GO TO 2990 

000299 

000 

2030 

Tn = 1 TU )*T<LTflll/2.0 

000300 

ooo 

2032 

CRLL PLYAUm Ac LAl,Tn,A(LA*l 1, XK( LK l,Gt LG 1 

00Q3QI 

ooo 


GO TO 2999 

00C302 

ooo 

2035 

Tn = Tc 1 1 

000303 

000 


GO TO 2032 

000309 

ooo 

209 0 

CALL PLVAUnC AC LAI,TC I 1,A( LA*11,XKILK ),G1 > 

000305 

000 

2092 

32 - 32*1 

000306 

000 


LA = FtDC5,lT,HS02f 32)1 

000307 

000 


LK = ELDC22,l9,rtI502C 32)1 

000308 

ooo 


CALL PLVAunC 0(LA1,T( LTAI, AC LA*1 1,XKtLK),G: 

000309 

000 


GO TO 2998 

000310 

ooo 

2095 

G1 = XKCLK )*XKCLA> 

000311 

ooo 


GO TO 2092 

000312 

ooo 

2050 

CALL PLVAUnC AC L A ) , TC 1 I , Af LA*1 1, XKCLK ),G1 1 

000313 

OQO 


32 = J2*l 

000319 

000 


LA = FL0(5.17.rcS02t J2M 

000315 

ooo 


LK = FLDC22,19,«S02( 32 n 

000316 

ooo 


G2 = XKC LK )*XKCLA 1 

000317 

ooo 


GO ’J) 2998 

000318 

ooo 

2055 

TM = CTC I )*TCLTA)W2.0 

000319 

ooo 


CALL PEOlwnCTCl.CONt 19 1 , AC LA 1 ,XKC LK ) ,GC L6 ) 

000320 

000 


GO TO 2999 

000321 

ooo 

2060 

Tfl = TC LTA J 

000322 

ooo 


GO TO 2007 

000323 

ooo 

2065 

Tfl = TC LTA ) 

000329 

000 


GO TO 2032 

000325 

ooo 

2070 

CALL DIOlunC cone 19 ) , At LA 1, XKC LK) ,Gt 1 

0OU326 

ooo 

2on 

m = CTCI) * TCLTAH / 2.0 

000327 

ooo 


J2 = 32 * 1 

000328 

ooo 


LA = FLDC5.IT,KSa2C 32)) 

000329 

ooo 


LK = FLOC 22, 19.NSQ2C 32 )) 

000330 

ooo 


)FCHTYf*E .EO. 16) GO TO 2075 

000331 

ooo 


CALL D2Dlun< rn, G1, AtLAl, XKCLK). G(L6) 

000332 

ooo 


80 TO 2999 

000333 

ooo 

2073 

Gt = XKCLA) • XKCLK) 

000339 

ooo 


GO TO 2071 

000335 

ooo 

2075 

GCLG) = G1 • XKCLA) • XKCLK) 

000336 

ooo 


GO TO 2999 

000337 

ooo 

2998 

Gl LG I = 1 ,/t 1 ,/G) *1 ./62) 

000338 

000 


IFCFLOC 3,1,I7S01C 31 ) >.E0. 1 ) GCLG) = GUGZ 

000339 

ooo 

2999 

J2 = J2*l 

000390 

000 

3000 
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T(LTft) = TlLTAl *160. 
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TNT = TtLTfl) 
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GNG = GIUGI 
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CHECK Fon Rnoifttiarj conductor 
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000 
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GSUHR = OSUtlR *GNG«SlGnn 
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000 
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000 


GO TO NPASS 
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ooo 
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WniTEI M0UT,2im I 
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2111 

format (,60H ERROR - THE SUM OF THE CONDUCTORS 

ATTACHED TO 

RELAX 

C0Q362 
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LIVE N00E,I5,2TH IS EQUAL OR LESS THAN ZERO) 
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IF ILODPCT .GT. 1) ASSIGN 2700 TO NPASS 
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ooo 


IF ft .LE. NNO) GO TO 2700 
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IF (LODPCT .GT. 1) ASSIGN 3600 TO JPflSS 
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000 


GO TO 3600 
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ooo 
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CC = GSUML/GSUnR 
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FF = -CC*»2*Rl6 
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GG = -OSUM7GSUMR*n3 
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GG = 5QRTtFF*>2-GG««3) 
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ZZ = SORT(fGG-FF )»*B3-tGG*FF )*»R3) 
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IFf ZZ.EQ.G.O) GO TO 2500 
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000386 

ooo 


GO TO 2700 


STOSTL 

000387 

ooo 

c 



STOSTL 

000388 

ooo 

c 

SOLVE FOB THE TEMPER'iTURE BY OUARTIC EQUATION 


STDSTL 

000389 

ooo 

c 



STOSTL 

000390 

ooo 

2500 

T2 = fosun/ GSUnR1«*0.2S 


STOSTL 

000391 

ooo 


GO TQ 2700 


STDSTL 

000392 

ooo 

c 



STDSTL 

000393 

ooo 

c 

SOLVE FOR THE TEMPERATURE BV LINEAR EQUATION 


STOSTL 

000391 

ooo 

c 



STOSTL 

000395 

000 

2600 

T2 = QSUM/GSUML 


STDSTL 

000396 

ooo 

c 



STOSTL 

000397 

ooo 

c 

COMPUTE TEMPERATURE CHANGE AND SET THE NEW TEMPERATURE 

STOSTL 





STDSTt. 



000398 

000 

c 



000399 

000 

2700 

T1 = T2-TU1 


OOtVIOO 

000 


Ttl) = T2 


000901 

ooo 


tEt ABSCDRLXCCl.GT.ABStTin GOTO 3001 


000902 

000 


.ORLXCC = T1 


000903 

000 


NDRLXC = I 


000909 

000 

3001 

CONTINUE 


00090$ 

000 

c 



000906 

000 

c 

DO SUCCESSIVE POINT ITERATION ON ARITHMETIC MODES 


00090T 

□ 00 

c 



000908 

000 


IFCMNA.LE.O) GO TO 3800 


D0Q909 

00) 

3100 

JJl = Jl 


000910 

000 


JJ2 =J2 


0Q09U 

000 


DO 3700 I = NN,NNC 


000912 

000 


Tl 1 ) = Tt I 1 -950. 


000913 

000 


L = 1 


000919 

000 


IFtPLDl9,l,9S01( JJl*m.EO.O» GO TO 6000 


00091$ 

DOO 


NTVPE = FLDtO,5,NSQ2( JJ2)) 


□00916 

000 


LA = FL0(5,1T,MS02( JJ2H 


000917 

000 


LK = FLO< 22. 19,N502I JJ2 > ) 


000918 

000 


GO TO 15005, 5010, 50)5, 5020. 5025, 5030, 5035, 5090, 5030 


000919 

odd 

• $050, $050, SOSO l.MTVPE 


000920 

000 

500$ 

DILI != XKtLK)*i:L» 


000921 

000 


00 TO 5999 


000922 

000 

5010 

QI - 0.0 

T 

000923 

000 

5012 

GALL OlDIUnc Tl L ),rt(LA),XKrLK >,Q2) 

ro 

000929 

000 


GO TO 5998 

to 

00092$ 

000 

5015 

01 = 0.0 


000926 

000 

5017 

CALL DID turn CONI 19 ), A( L A ) , XK( LR 1 ,02 ) 


000927 

000 


GO TO 5990 


000928 

000 

5020 

CALL DID tunc COM! 19 ),A( LA t,XK| LKI.Ql) 


000929 

000 

5022 

JJ2 = Jj2*t 


000930 

000 


LA = FLD<5,1T,NS02< JJ2II 


000931 

ooo 


LK = FLOI2S.l9,NSQ2t JJ2)> 


000932 

ooo 


GO TO 5017 


000933 

ooo 

5025 

01 = XK( LK )*XK( LA) 


000939 

ooo 


GO TO 5022 


0009 3$ 

000 

5030 

CALL OlDlunI CONI 19 ), AILA ),XKI LK >,01 1 


000936 

ooo 


JJ2 = JJ2*1 

s s 

000937 

ooo 


LA s FLOl 5, 17,N5Q2C JJ211 


000936 

ooo 


LK = FLOt 22,19, NS02I JJ2 >) 


000939 

ooo 


02 s XK( LK ••XKILA > 

o fei 

000990 

ooo 


GO TO 5990 


000991 

ooo 

5035 

CALL DlOlUnC COM! 19 1,A( LAt.XKILK ),01 t 


000992 

oco 

5037 

JJ2 = JJ2*l 9 


□0D993 

ooo 


LA = FLDI 5,I7,NSQ2( JJ2II 


000999 

ooo 


LK = FLOl 22. I9,NS02<JJ21 ) 


00099$ 

000 


GO TO 5012 


0009 <«6 

ooo 

5090 

01 = XE(LK )«XK(LAt 

hQ 

000997 

000 


GO TO 5037 


000998 

ooo 

5050 

JJ2=J,I2*1 


000999 

000 


JPSLA=FL0( S , 1 7.NS02I J J2 1 ) 

OD09S0 

ooo 


JPSLK=FLOe 22, l9,NSa2( JJ2) ) 


□0G9S] 

ooo 


SPJT!M=CDM< 19 »*XK 1 JPSLni»XK( JPSLK ) 


OOD9S2 

ooo 


CALL 01 irtCYl XKI JPSLK 1 , SP JTin, At LA >,XKI LK ),Ql 1 


00095 3 

ooo 


02=0.0 


000959 

000 


GO TO 5990 


f 
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VCRS S 
VERS S 


VERS S 
VERS 5 
VERS 5 
VERS S 
VERS 5 
VERS S 
VERS 5 
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STD STL 




000<i;5 000 S9SB QtL) s Ql+02+Q(L> 

030‘i56 000 5090 JJZ = JJ2+1 

OO09S7 000 6000 COUTtKEJE 

OOOH58 000 GSUnt = 0.0 

000959 000 ' GStlMD = 0.0 

000960 OOO OSUM = Q( I t 

000961 000 00 JJl = JJli'l 

000962 000 LG = TL015 . 16 ,MSQ1( J J 1) ) 

000963 000 LtA = FLOC 22 r 19 .NSO 1( J J 1 ) > 

000969 000 T(LTfl) = T{ LTA ) -960. 

000965 000 IF( FLD( 2, 1 «»SOt( JJl ) l.EO.O) GO TO 9000 

000966 000 HTVPE = FLD( 0»5,NSQ2{ J J2 1 > 

000967 000 LB = FL0(5, 1T,HS02< JJ211 

000963 000 LX s FLD( 22. l9,MS02t JJ2 ) ) 

0009 69 000 GOTO! 3005,3010, 30 15 . 3020, 3025 , 3030, 3035 , 3090, 3095 , SOSO, 3055, 

OQ0970 000 1 3060,3065, 3070,3073.30701 , MTVPE 

000971 000 3005 TPl = I T« L l+TC LTA ) )/2. 0 

000972 000 3007 CALL 0 ID luiH TM, At L A ), *K( LX J, G< LG ) 1 

000973 OOO GO TO 3999 

000979 OOO 3010 TM = Tl L 1 

000975 OOO GO TO 3007 

000976 OOO* 3015 CALL DlOlUm T< L >,A(LA1,XK( LX ),Gn 

000977 OOO 3017 JJ2 = JJ2*l 

000973 OOO LA = FLDI 5 , 1 7 , NSQ2( J J2 >) 

000979 OOO LX = FLOI 22, l9,N502t JJ2 1 » 

0O09A0 OOO CALL DI0IUn(T(LTA),A(LA),XKtLK|.G2l 

0009SI 000 GO TO 3993 

000932 OOO 3020 Gl = XXf U )*XK< LA } 

000983 000 GO TO 3017 

000989 OOO 3025 CALL D tOUmc Tt L ), At LA 1, XK( LX 1, 6 1 1 

000905 OOO JJ2 s JJ2+1 

000986 OOO LA = FUD(5,17,riS02t JJ2>) 

000967 OOO LX = FLOl 22, l9,«S02tJ J2U 

000988 000 G2 = XXI LX )*XK{ LA 1 

000989 000 GO TO 3996 

000990 OOO 3030 Tn s ( Tt L l»Tt LTA n/2,0 

000991 OOO 3032 CALL PLVALtm At LA ) , T>9, At LA*I ) , XKt LK 1 , G( LG 1 1 

000992 000 GO TO 3999 

000993 OOO 3035 TM = TtLI 

000999 OOO GO TO 3032 

000995 OOO 3090 CALL PLV AUnt At L A 1 , Tt L I . At LA* 1 I.XKI LX 1,G1 1 

000996 OOO 3092 JJ2 = JJ2+1 

000997 OOO LA 3 FL0t5, 17,NSQ2f JJ2n 

000998 OOO LX = FLOt 22,19 ,ttSQ2< JJ21 > 

000999 OOO CALL PLVAUni At LA UTtLTA 1, At LA*I ),XKt LK ),G2 > 

00050D OOO GO TO 3998 

000501 OOO 3095 Gl = XXI LK l»XKt LA 1 

00050? OOO GO TO 3092 

000503 COO 3050 CALL PLV AUni At L A ) , T( L I , AC LA*l ) . XKI LX ) ,G 1 ) 

000509 000 JJ2 = JJ?»I 

000505 OOO LA s FLDt 5 , 1 7,rJS02l JJ2 t) 

000506 OOO LX 3 FLDt 22. 14,NS02t JJ21 > 

000507 OOO G2 = XK( LX )«XKt L A 1 

000506 OOO GO TO 3998 

000509 OOO 3055 Trl = ( T( L 1*71 LTA ) 1/2.0 

0005 10 OOO CALL 020 lUni Ttl.CONC 19 I , At L A 1 , XKt LK 1, G' LQ 1 ) 

000511 000 GO TO 3999 
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000512 

000 

3060 

Tn = T«LTft) 



000513 

000 


GO TO 3007 



OQOSH 

000 

3065 

TH = TtLTfll 



000515 

000 


GO TO 3032 



000516 

000 

3070 

CALL Dioiumconc 19 l.AtLAliXKCLK l.Gl) 


VED 6 

000517 

000 

3071 

TM = tUL) ♦ T(LTAl) / 2,0 


VEH 6 

000510 

000 


JJ2 = JJ2 * 1 


VER 6 

000519 

OOD 


LA FL0(5,17,HSD2( JJ21) 


VER 6 

0005 20 

000 


LK = FLO( 22,19, fJSD21JJ211 


VER 6 

0005 21 

000 


IFtNTVPE ,e0.l6> GO TO 3075 


VER 6 

000522 

QCO 


CALL 020lUmTn, Gl, At LA), XK(LK), G(LG)1 


VER 6 

000522 

000 


GO TO 3999 


VER 6 

000525 

000 

3073 

Gl = XK<LA1 • XKtLK) 


VER 6 

0005 25 

000 


GO TO 3071 


VER 6 

0005 26 

000 

3075 

GILG) = Gl • XKCLA) » XK(LK) 


VEH 6 

000S2T 

000 


GO TO 3999 


VER 6 

000520 

000 

3998 

OILG) = l./l l.7Gl*l.7G2> 



0005 29 

000 


IF(FLOC3,l,rtS01( Jjni.EQ.n G(LG> = G1»G2 



000530 

000 

39 '9 

JJ2 = JJZ*1 



000531 

000 

9010 

CONTINUE 



000532 

OOQ 


T(LTA) = T(LTA) +960. 



000533 

000 


GNG - G(LG) 



0005 39 

000 


TNT = H LTA ) 



0005 35 

000 

C 

CHECK FOA AADIATIGN CONDUCTOR 



0005 36 

000 


IF( FLDC 3. l.NSQIt JJl n.NE.O) GO TO 3900 



000537 

000 


OSUPl = OSUn+GHG + TNT 


STD STL 

0005 36 

000 


GSUnL = GSUnL+GHG 


STD STL 

0005 39 

000 


GO TO 35 00 


STOSTL 

000590 

000 

3900 

QSUn = QSUn +GNG>SlGnA*THT>»9 


c 

000591 

000 


GSUDR s GSUDR +GNG*SIGnA 



000592 

000 

C 

CHECK FOR LAST CONDUCTOR TO THIS NODE 



000593 

000 

3500 

IFCNSQtt J J1 I.GT.O } GO TO 60 



000599 

000 


TC n = Tt n +960. 



000595 

000 

C 



STDSTL 

000596 

000 

C 

CHECK TO DETEnniHE THAT THE SUn OF CONOUCTORS IS POSITIVE 

STDSTL 

00059T 

000 

C 



STDSTL 

000596 

000 


IFCGSUflL.GT.O.P .OH .65UPIR , GT. 0.0 >G0 TO 3501 



0005 99 

000 


T2 = Tf I ) 



OO055O 

000 


GO TO JPASS 



000551 

000 

C 



STOSTL 

000552 

000 

C 

CHECK TO SEE IF noRF ENERGY IS GEING REPIOVEO 

THAN THE 

STDSTL 

000553 

ooo 

c 

NODE CAN SUPPLY. 


STOSTL 

000559 

000 

c 



STOSTL 

000555 

OQO 

3501 

IF(OSUfl.GT.O.O) GO TO 35 05 


STOSTL 

000556 

000 


T2 = 0.0 


STOSTL 

0005ST 

000 


GO TO 3600 


STOSTL 

000556 • 

000 

3505 

IFtGSUtlR.LE.O.O) CO TO 3520 


STOSTL 

000559 

000 


IF(GSUnL.LE.O.O) GO TO 3510 


STOSTL 

090560 

000 

C 



STDSTL 

000561 

000 

c 

SOLVE FOR THE TEMPERATURE BY GENERAL QUARTIC 

EOUATION 

STOSTL 

000562 

000 

c 



STDSTL 

000563 

000 


CC = GSUnL/GSUPIR 


STOSTL 

0005 69 

000 


FF s -CC*«2*R16 


STOSTL 

000565 

ooo 


GG = -0SUn7GSUnR«R3 


STOSTL 

000566 

000 


CG = S0RT(FF»»2-GG**3) 


STOSTL 

000567 

000 


22 = SOBTM GG-FF)**R3“IGG+FF J**B3) 


STOSTL 

003566 

ooo 


IFCZZ.EQ.0.0) GO TO 3510 


STOSTL 


STnSTL 
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0005&4 

000 


T2 = nSH2*t-Z2*SonT( -2Z**2+CC*RSR2/ZZ) J 


ST05TL 

000570 

000 


GO TO 3600 


STOSTL 

0005 Tl 

ooo 

c 



5T0STL 

OOOSTJ 

000 

c 

SOLVE FOR THE TEMPERATURE BV UUARTIC EQUATION 


STOSTL 

000ST3 

000 

c 



STOSTL 

0005 7<i 

000 

3510 

T2 = tOSUn/ GSUMR1»*0.25 


STOSTL 

0005 75 

OOD 


GO TO 3600 


STOSTL 

000576 

000 

c 

' 


STOSTL 

000571 

000 

c 

SOLVE FOR THE TEMPERATURE BV LINEAR EQUATION 


STOSTL 

000570 

ooo 

c 



STOSTL 

0005 79 

000 

3520 

T2 = QSUn/GSUML 


STOSTL 

0005BO 

ooo 

c 



STOSTL 

000531 

ooo 

c 

COMPUTE TEMPERATURE CHANGE ANO SET THE NEU TEMPERATURE 


STOSTL 

000582 

000 

c 



STOSTL 

000533 

ooo 

3600 

Tl = T2-TI I 1 


STOSTL 

0005 80 

000 


T( n = T2 


STOSTL 

0005 S5 

000 


]FlAOS(ARLXCC).GT.ABS(Tin GO TO 3700 


STDSTU 

0005B6 

000 


ARLXCC s Tl 


STOSTL 

000537 

ooo 


HARLXC = I 


STOSTL 

000588 

ooo 

3700 

CONTINUE 


STOSTL 

000539 

ooo 

c 



STOSTL 

000590 

ooo 



STOSTL 

000591 

ooo 

c 

* 


STDSfL 

00059Z 

ooo 

c 

CHECK IF RELAXATION CRITERIA IS MET. 


STOSTL 

000593 

ODO 

c 



STOSTL 

000599 

ooo 

c 

THE variable -HQ- INDICATES THE RELAXATION CRITERIA 


STOSTL 

000595 

000 

c 

BEING tilORKEO TOWARD 


STDSTU 

000596 

ooo 

c 

NO = 0 TRylHG TO COLSE ON ORLXCA AND/OR ARLXCA 


STOSTL 

000597 

ooo 

c 

= 1 TRYING TO close ON BALENB FOR THE SYSTEM BALANCE 

STOSTL 

000590 

000 

c 

= 2 TRYING TO CLOSE ON QALENG FOR THE MAXIMUM NODAL 

STOSTL 

000599 

ooo 

c 

BALANCE 


STOSTL 

000600 

ooo 

c 

= 3 have achieved closure for ALL CRITERIA INPUT 

STOSTL 

000601 

ooo 

c 



STOSTL 

000602 

ooo 

c 



• STOSTL 

000603 

ooo 

3800 

TFtNQ.GT.01 GO TO 155 



000609 

ooo 


TFt ABStPRLXCC l.GT.ORLXCA.OR. 


STOSTL 

000605 

ooo 


, ABStAHLXCCl.GT.ACLXCAl GO TO 9390 


STOSTL 

000906 

000 


URITE(NOUT,3801 ) LDOPCT 


STDSTU 

000607 

ooo 

3801 

FOnriATt IHI .58H NOTE - BOTH DRLXCA AND ARI.XCA HAVE QEEN MET 

with 

LO 

00060D 

'QO 

IDPCT =.1101 



000609 

ooo 


NL Nt = NL1NE*2 


STOSTL 

000610 

ooo 


tiO = 1 


STOSTL 

OOU61 1 

ooo 


iJO 3810 r = l.NHT 


STOSTL 

000612 

ooo 

3810 

T8 t J = Tt I 1-960.0 


STOSTL 

00Q6I3 

□ 00 


CALL OUrCAt 


STOSTL 

000619 

ooo 


HO 3830 t = l.NNT 


STOSTL 

000615 

ooo 

3830 

T« I 1 = T( 1 1*950.0 


STOSTL 

□00616 

ooo 

c 



STOSTL 

000617 

ooo 

c 

TEMPERATURE CHAMIiC CRITERIA HAS BEEN MET, NEW COMPUTE 


STOSTL 

000618 

QOO 

c 

THE ENERGY BALANCE FROM THE SYSTEM TO THE BOUNDARIES 

OR 

STOSTL 

000619 

ooo 

c 

THE LARGEST INBALANCE ON A NODE. 


STOSTL 

000620 

ooo 

c 



STOSTL 

000621 

000 


IFtBALENG.LE.0.0 1 GO TO 9150 


STOSTL 

000622 

ooo 

155 

DO 3890 I=1,MNT 



000623 

ooo 

38NO 

T( 1 1 = Tt r 1 -9 60. 



000629 

080 


CALL NONLIH 



000625 

000 


QOUT = 0.0 




STOSTL 
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tJ 

t 

ro 

w 

VJl 



000626 

000 


OIH - 9.0 


000627 

000 


J1 = 0 


000628 

000 


DO 155 I = l.NNC 


000629 

000 


QIN = QtN-^OC I ) 


000630 

oot 


IFt .NOT.FLQin GC TO 165 


000631 

001 


LnP = NXt IXF»I t 


DO0632 

oot 


IFlLMP .EO. 0 > GO TO 165 


000633 

001 


OIH = IXF*LMP}*< Tt LMP t-Tt I J> 


000639 

000 

165 

Jl = Jl+l 


000635 

000 


LTA = FLQt22,l9,fl5qiC Jin 


000636 

000 


IFtLTft.LE.NNC t GO TO 175 


0006 37 

000 


LG = FLDt5,l5,N:;QU Jin 


OO0633 

001 


tFlLG .EO. 0> Gti TO 195 


09C639 

OOD 


IFCFLDI 3.I,r«SqU Jt n.EQ.Ol GO TO ITO 


000690 

000 


Tl = T( I 1+960.0 


00069 1 

QOO 


T3 = TILTA >+960,0 


000692 

000 


OOUT = QOUT+G(LG '(•tTU*9-T2*»9> 


000693 

000 


OQUT = OOUT *G( F.G l*tTt**9-T2*»9 1 •C0NC50) 


000699 

000 


GO TO 175 


000695 

000 

170 

OOUT = OQUT+G(LGJ»IT« n-TtLTAn 


000696 

000 

c 

CHECK FQH LAST CONOUCTOH TO THIS NODE 


000697 

000 

US 

IFCNSQIt Jl 1.GT.0 1 GO TO 165 


000698 

000 

195 

CONTINUE 


000699 

000 


DO 3850 1=1, NNT 


000650 

OOQ 

3850 

Tt 1 > = T( t ) *960. 


00065 1 

000 


ENGBAL = ABSt OIN-OOUT> 


000652 

000 


IF UCNT .EG. 01 WHITE (NDUT, 38531 ENGBAL,LOOPCT 


000653 

000 

3853 

FOHHAT <// I3H ENOBAL =,E12.5.13H AT UDOPCT =,llOl 


000659 

000 


ICNT =1 


000655 

000 

C 


STOSTL 

000656 

000 

c 

CHECK TO SEE IF ENEBGV BALANCE CRITERIA HAS BEEN OET. 

STOSTL 

000657 

000 

c 


STOSTL 

000659 

ooo 


IF(A8S(ENGBAL).GE.BALENG> go to 9390 

STOSTL 

0006;9 

000 


tF(NO.E0.21 GO TO 9110 

STOSTL 

000660 

000 


WRITEtNOUT,9lOI 1 ENGOAL, LOOPCT 

STOSTL 

000661 

DOO 

9101 

FDRPIATI lHl,62H MOTE - STCTEn ENERGY BALANCE CRITERIA HAS BEEH RET 

r 

000662 

000 


1 EMGBAL = .tOH ENGBAL = ,Gl3.e,10H LOOPCT =,110) 


000663 

000 


NLINE = MLINE+2 

STOSTL 

000669 

000 


NO =2 

STOSTL 

000665 

000 


00 9105 I = l,NNT 

STOSTL 

0G0666 

000 

9105 

Tt t 1 = T( 1 1-960.0 

STOSTL 

000667 

000 


CALL nUTCAL 

STOSTL 

000668 

QOO 


00 9107 I = l,NNT 

STOSTL 

000669 

300 

9107 

TI I) = Tt I 1*960,0 

STOSTL 

000670 

000 


GO TO 9390 

STOSTL 

00067) 

OOD 

9U0 

WHITE(NDUT,9 1 1 n ENGBAL, LOOPCT 


000672 

000 

91U 

FDflnATl !Hl,62H NOTE “ NODAL ENEPSV BALANCE CRITERIA BAS BEEN HET, 


000673 

000 


1 ENGBAL = ,G13.6, BHLUOPCT =,1101 


000679 

000 


NLINE = HLINE+2 

STOSTL 

000675 

000 

9150 

NO =3 

STOSTL 

000676 

ooo 


DO 9200 1 = l.NNT 

STOSTL 

000677 

000 

9200 

TI i 1 = Tl I 1-960.0 

STOSTL 

000670 

ooo 


GO TO 5001 


000679 

000 

C 


STOSTL 

000680 

QOO 


STOSTL 

000601 

000 

c 


STOSTL 

000682 

ooo 

c 

IF THREE iterations HAVE BEEN PERFORNED, EXTRAPOLATE USING 

STOSTL 


STDSTL 
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000683 

000 

c 

“AITKENS DELTA SOUBREO WETHOO-, 


STDSTL 


000685 

000 

c 




STDSTL 


000685 

000 

c 

X(E3 = X< 3>-(Xt3)-XC2)1 

• *£/( ( X( 3 l-Xt 2 1 )-( Xt 2 >-XC 1 ) ) ) 

STDSTL 


000636 

ooo 

c 




STDSTL 


000637 

000 

5390 

GO TO ITER 



STDSTL 


000683 

000 

c 




STDSTL 


000689 

000 

c 

FIRST ITERATION 



STDSTL 


000690 

000 

c 



* 

STDSTL 


000691 

000 

5500 

ASSIGN 5550 TO ITER 



STDSTL 


000692 

ooo 


DO 5510 I = UtJNC 



STOSTL 


t '0693 

ooo 

5510 

X( IXl + I 1 = T( I 1 



STDSTL 


000695 

ooo 


GO TO 5720 



STDSTL 


000695 

ooo 

c 




STDSTL 


000696 

ooo 

c 

SECOND ITERATION 



STOSTL 


000697 

ooo 

c 




STOSTL 


000693 

ooo 

5550 

ASSIGN 5500 TO ITER 



STDSTL 


000699 

ooo 


DO 5550 I = IjNHC 



STDSTL 


000700 

000 

5550 

Xt 1X2*1 3 = T1 I) 



STDSTL 


000701 

OQO 


GO TO 5720 



STOSTL 


000702 

ooo 

c 




STOSTL 


000703 

OOO 

c 

THIRD ITERATION 



STDSTL 


000705 

000 

c 




STOSTL 


000705 

ooo 

5500 

ASSIGN 5500 TO ITER 



STDSTL 


OO0706 

ooo 


OIFflAX = 50. 




t) 

000707 

ooo 


TF< A8SE EXTCTni ,HE. 0.) OIFnAX 
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00009J 

ooo 
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000092 

ooo 


LA = FintS, 17, *4502(321) 


000093 

000 


LK = FLm22,19.f4S02t 321) 

Q S 

000099 

000 


G2 = XK( LK )+XK(LA 1 


000095 

000 


GO TO 2990 

i 

000096 

000 

2055 

Tft = t Tt t 1+TtLTA ) 1/2,0 

000097 

000 


Call 02Dlun( Tn,cai7t 1 H ),A(LAl,XKtLKl,GtLG 


000098 
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GO TO 2999 
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000099 

000 
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000050 
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GO TO 2032 

3 VA 

000053 

000 
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CALL OlOlunt COFJI 19 ),n(LA1,XKCLK ),Gt ) 
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000 

I 
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000060 

000 


GO TO 3999 
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000061 

000 
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Gt = XK(LA) •> XKCLK7 
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000 


GO TO 3071 
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000063 

000 
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GtLGJ = Gl * XK(LA> • XKCLKl 
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000 
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000 
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000 
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ooooot 

000 
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000002 
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000 
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000 
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000 
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OOOOOS 

000 


ccnnorj /ciriAGE/ karocooi 




000009 

001 


COnnON /FLQEBH/EBH 




OOOOlO 

000 

c 





OOOOll 

000 


L = 0 




000012 

000 


15 CALL SXPBtJSUl 




OOOQI3 

000 


GO T0(50,290), J5U 




000019 

ooo 


50 DO 75 1=1, 3 




000015 

000 


K = I - 1 




000016 

000 


CALL SUSN! VALVE! t ),JSU) 




COOOIT 

000 


GO TO! 70,55,261,275,262), ISU 




ooooie 

000 


55 UBITE!N0UT,60) 




000019 

000 


60 FORtTAT! 60H0* • • FLOATING POINT NUNBEB 

INPUT FOR INTEGER 

FIELD * 


000020 

000 


1 • • /) 




000021 

000 


GO TO 275 



tj 

000022 

000 


70 KGL = KOL * 1 



r 

000023 

ooo 


75 CONTINUE 



to 

000029 

000 


CALL SUBN!Xt,ISU) 
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000025 

ooo 


K = 3 



VO 

000026 

ooo 


GO TOI 100,110,262,275,2621, ISU 




000027 

000 


100 WRITE! NGUT, 105 ) 




000020 

O'jO 


105 F0BnBT!7flHO» • • INITIAL VALVE POSITION 

MUST BE INPUT AS 

A FLOATI 


000029 

000 


ING POINT NUnOEB • • « /) 



000030 

ooo 


60 TO 2T5 




000031 

ooo 


110 IFlXI .LE, 0.C1 GO TO 115 



o S 
S 

000032 

000 


IF! XI .LT. 1.01 GO TO 130 



000033 

000 


Its URITECN0UT,120I XI 



000039 

000 


120 FORNATI T2H0* * • INITIAL VALVE POSITION 
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000035 

000 


10,0 TO 1.0, Xt s GIO.5, 7H • • • /) 



000036 

000 
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000 

c 

NODE 
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000 
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ooo 
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ooo 


GO TO! 150,135,262,275.2621, TSU 



000092 

ooo 


135 uniTEf NOUT, 1901 




00QO93 

ooo 


190 FOBflAT! 59H0» * • NODE MUST BE INPUT AS i 
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» »/ ) 

CGi 

000099 

ooo 


GO TO 275 
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ooo 


150 KOL = KOL ♦ 1 




000096 

ooo 

c 

xniNi 



000097 

ooo 


call SUBNI VALVEiS I.ISU) 



\ 
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000 
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ooo 


GO 701 155,165,262,275,262 1, fSW 




000050 

ooo 


155 URITE(N0UT,160) 




000051 

ooo 


160 FOnnnT(61»0* ■ • xmNI must be input as 

A FLOATING POINT 

PJUPlBEn 


090052 

ooo 


1 • • • / 1 
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ooo 
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165 IFCVALVEfS) .LE. 0.0) GO TO |T0 
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000079 
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ooooor 

OQOOQ8 

000009 

000090 

000091 

000092 

000093 

000091 

000095 

000096 

000097 

000090 

000099 

OOOlOO 

OOOIOI 

000102 

000103 

000101 

000106 

000106 

oooior 

000106 

000109 

000110 

000111 

000112 


000 


170 uniTE«H0UT,175l VALVE(6) 



000 


175 FDRnflTlSOHO* • * XfllNl HOST BE WITHIN 

THE RANGE 0.0 TO l.O, 

XMtNl 

000 


1 s G10.5, 71( • • • /) 



000 


CD TO 276 



000 


180 KOL a kQL + 1 



000 

c 

XHRXV 



000 


CAt-L suaric VALVE(6),ISU) 



000 


K = 6 



000 


GO 701 105,195,262,275,262), I SU 



ODO 


105 wni7E« HOOT, 190 1 



000 


190 FORMAT! 6 IMO. • • XMftX 1 MUST BE INPUT AS B FLOBTING POINT NUMBEFI 

000 


!• • • 7 ) 



001) 


GO TO 275 



000 


195 IF! VALVE! 6) .LE. 0.0) GO TO 200 



QnO 


tF<VALVEI6) .LT. 1.0) GO TO 210 



000 


200 uniTE!N0UT,205 1 VALVE! 6 ) 



coo 


205 FORMAT! 56MO* • • XMAXl MUST BE WITHIN 

THE RANGE 0.0 TO 1.0, 


ooo 


1 = GIO.5, 7H • • * 71 



000 


GO TO 275 



000 


210 KQL = KOL + 1 



000 

c 

E 



000 


CALL SUBNl VALVE! 7 ),tSUI 



000 


K = T 



ODO 


GO 70( 215,225,262,275,262), tSU 



ooo 


215 tFl.NOT. BBS! VALVE! 7 )) . GT . 0.0) GO TO 

225 


OOO 


URITE!N0UT,22O ) 



ooo 


220 FORMAT! 57HO* • « E MUST BE INPUT AS A 

FLOATING POINT NUMBER 

« w 

ooo 


1* / » 



ooo 


GO TO 275 



ooo 


225 XOL = KOL * 1 



000 


DO 250 l‘6,l& 



ooo 


CALL SUBNl VALVE! n.tSW) 



ooo 


GO 701 230.210,260,275.2601, ISU 



000 


230 IF! 1 ,LT. 10 » GO TO 210 



ooo 


K = I * 1 



000 


WRITE! N0UT,235 > K 



ooo 


Z3S FORMAT! 13H0» * • ENTBV 13, 1BH MUST BE 

INPUT AS A FLOTiTING POINT 

ooo 


INUMBER • * • /) 



ooo 


GO TO 275 



ooo 


210 KOL 5 KOL + 1 



ooo 


L = 1 



ooo 


250 continue 

. 


002 


GO TO 270 



ooo 


260 IFIL .EO. 10 .OR. L .EQ. 121 GO TO 270 



000 


261 K = 1 - t 



ooo 


262 WRITE! N0UT.265 ) K 



ooo 


265 FORMAT! 56H0* • * INCORRECT NUMBER OF ENTRIES FOR VALVE ORTA, 

IC S 

ooo 


1 13, 7H * • • 7) 



001 


275 ERR=.TRUE. 



ooo 


270 TFl ISU .EO. 5 > 60 TO 260 



001 


CALL SXPTEIJSU) 



ooo 


GO TO! 276,290 ), JSW 



ooo 


276 IF! L .EO. 01 GO TO 15 



ODO 


RFTURN 



ooo 


260 JSW = £ 



ooo 


290 RETURN 



ooo 


END 




T9S“d 


stvncz 


DATE 022675- 


PAGE 


1 


J- . 
f' ■ 


AELT.L 

EtTorr 

S1VRG2 

RLIB70 02/28-03i2lt4S-{0, ) 

OOOOOl 

000 

VRG2 

PROC 
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IFI FLD< 2i I.NSQIUJID.EC.O) GO TO 4000 

000003 

000 


NTVPE s FLO( 0»5,HS02( JJ2M 

oaooov 

000 


LA = FLD(5,17.NS02[ JJ211 

000005 

000 


LR = FLDC 22, 14,N502{ JJ21 ) 

000000 

000 


GOTO! 3005,3010,3015,3020,3025,3030,3035.3040 

000007 

00 0 

1 

i 3060,3065,3070,3073,3070) , NTvPE 

OOOOOB 

000 

3005 

Til = ( Tt L)*Tt LTR ) 172.0 

oooooo 

000 

3007 

CALL DlDlUniTn.AI LAl.KKt LK 1,G<LG )1 

000010 

000 


GO rn 3999 

OOOOll 

000 

3010 

Tri = TlLl 

000012 

030 


GO TO 3007 

000013 

000 

3015 

CALL OID^V’im TlLl.AU.A ),XKC LK ),G.' l 

QOOOlO 

000 

3017 
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000015 

000 


LA = FLD15,17.NSQ2l JJ21) 

000016 

000 
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OQOOIT 

000 


CALL DlDlum T(LTA),A(LA),XKILK),GP1 

000013 

coo 


GO TO 3990 

OOOOlO 

000 

3020 

Gl = XKILK 1«XK(LA1 

000020 

000 


GO TO 3017 

000021 

000 

3025 

CALL OlOlUnt TtD.AI LA l.XRlLKt.Gl ) 

000022 

000 


JJ2 = JJ2*l 

000023 

000 


LA = FL0t5,17,rJSQ21 JJ2)) 

000024 

000 


IK = FLD(22,14.NS02< JJ211 

000025 

000 


G2 = XKttK )>XK( LA) 

000026 

000 


GO TO 3998 

000027 

000 

3030 

Tn = ( Tt L >*T( LTA n/2.0 

000020 

000 

3032 

CALL PLVAUm A(LA),Tn,A(LA4-I ) , XK< LK ),G( LG ) 1 

000029 

000 


GO TO 3999 

000030 

000 
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714 = TIL) 

000031 

000 


GO TO 3032 

000032 

000 

3040 

CALL PLVAUnt A( LA>,7( L l,A(LA-»l 1,XK(LK >,Gl ) 

000033 

000 

304 2 

JJ2 5 JJ2*1 

000034 

000 


LA = FLOr5,|7,NS02( JJZn 

000035 

000 


LK = FLai22,l4,N502(JJ2l) 

000036 

000 


CALL PLVAUfH AILAl.Tt LTA),A{LA-»1 1,XK(LK ),G2) 

000037 

ooo 


GO TO 3990 

000033 

000 

3045 
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000039 

000 
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000040 

000 

305 0 

CALL PLVAuni Al LAl.TI L 1, A(LA*1 ),XK( LK ),GI ) 

00004 1 

000 


JJ2 = JJ2-H 

00004 2 

000 


LA = FLa(5,l7,NS02t JJ2I) 

000043 

000 


LK = FLD( 22,14, NSQ2t JJ2n 

000044 

000 


G2 = XKt LK )»XK(Ln 1 

000045 

000 


GO TO 3990 

000046 

000 

3055 

Tin = »T(L)->ULTAJ)/2,0 

000047 

000 


CALL D2DIUI4< Tn,CCN( 14 ), Al L A >, XK t LK 1 , Gl LG ) ) 

000043 

000 


GO TO 3999 

000049 

ooo 
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T(1 = Tl LTA 1 

U00050 

000 


GO TO 3007 
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ooo 
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TI4 = TfLTAJ 

000052 

ooo 
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ooo 
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000054 

300 

3071 

Tn = ( Tt H • Tl LTAl > / 2,0 

OC -055 

ooo 


JJ2 = JJ2 • 1 


VER 6 


VER 6 
VER 6 
VER 6 






1 


S9S“<I 


i 

/ 


SIVRG? 





CATE 022875 

PAGE 

Q0005(. 

000 


LO = FL0(5,ir,riSa2f JJ2)I 

VER 

6 
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000058 
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000061 
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000 
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000063 

000 

3075 
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VER 

6 


000069 

000 


GO TO 3999 
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000065 

OOO 

3998 

GiLGi = l./t X,/GI + l ./B2> 




000066 

000 


IFIFLD(3,U«Sai(Jjni.EQ.I ) G(LG) = GI«G2 




000067 

000 

3999 
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000 

9000 

CONTIWUE 
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000 
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000002 OOO tF(FLD(*l.t>NSQl( JJl+tn.EQ.O) CO TO 0000 

000003 OOO «TVPE = FtOl 0,5,HSQ2l JJ21 1 

OOOOOH OOO LA = FL0l5,lT,rjSQ2{JJ2)l 

000005 OOO LK = FLO( 22. 15,N502< JJZ ) ) 

000005 OOO 60 TO ( 5005 . 50 10 .5 0 15 , 5020, 5025 ,5030,5035. SO'tO, 5030, 

OOOOOT 000 • 5050,5050,5050 l.PITVPE 

OOOOOe 000 5005 Q(L1 = XK[LK>+Q(L) 

000005 000 GO TO 599S 

000010 OOO 5010 01 = 0.0 

oooon 000 5012 CALL D 10 1UP1I T( L 1, AC LA ), XK( UK 1. Q2 I 

000012 000 GO TO 5998 

000013 OOO 5015 01 = 0.0 

00001>l COO 501T COLL D IDlbrnt COHl 19 ) , A( L A 1 . XKI LK 1, 02 1 

000015 Ono 60 TO 5998 

000016 OOO 5020 Call oioium coki ihi.acla >,xk<lk i,qi i 

000017 OOO 5022 JJ2 = JJ2-fl 

OOOOia 000 LA n FLEK 5 , 17,NSQ2C J J 2 1 ) 

000019 000 LK = FLOC 22, 19,NSQ2( JJ2 1 } 

000020 000 60 TO 5D1T 

000021 OOO 5025 01 =: XK( LK )«XKt LA ) 

000022 OOO 60 TO 5022 

000023 OOO 5030 CALL D 1 0 lUnC COMC 19 1 , A( L A ) , XK( LK 1 , □ 1 ) 

000029 OOO JJ2 2 JJ2+1 

000025 OOO LA = FLDC 5 , 1 7 ,NSQ2C J J 2 >1 

000025 000 LK = FLDt 22 , 1 1 ,NSQZ( J J2 1> 

000027 OOO 02 = XKILKUXKILA) 

000028 OOO 68 TO 5998 

000029 000 5035 C ALL 0 1 0 CQMl 1 9 1 , Al LA 1 , XKt LK 1 , Q 1 ) 

000030 OOO 5037 JJ2 = JJ-*1 
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